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Para solicitar 
las tapas, 
remítanos 
hoy mismo 
el cupón de pedido 
que encontrará 
en la solapa 
de la última página 
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No necesita encuadernación, 
gracias a un sencillo 
sistema de fijación 
que permite además 
extraer cada revista 
cuantas veces sea necesario. 
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Derechos exclusivos 
de la revista 
COMPUTING with 
the AMSTRAD 


Representante para Argent¡nd. Chile. 
L"rugua,- \ ParagudY. Cia. Ameritana dt' 
Edioonc,. S.R.L. Sud -\ménea 1.532 Tel. 
21 2+ 6+ 120Q BL'E;\IOS .-\IRES (Ar
entina). 
.-\:lISTRAD Semanal no 'e hace 
nt'lt'sanamente solidarid de las opinionl''' 
H>rtiddS por sus colaboradores l'n l0' anÍt"lllo
 
fi.rn1ddos. Rl'sen"ados todos lo
 del"l'(-hos 


El Amstrad CPC 6128 posee dos bancos de memoria, 
como todo el mundo sabe. También es de dominio público el triste 
hecho de que el segundo no es fácilmente accesible para hacer cosas 
con él, al menos desde Basic, En Lenguaje Máquina, el asunto 
cambia completamente, Nosotros, aprovechando esta posibilidad, 
hemos hecho un programa que utiliza el segundo banco de memoria 
del 6128 como buffer de impresora, nada menos que 64 Kbytes, 
Todo el mundo que ha hecho proceso de textos, por ejemplo, 
sabe lo duro que es esperar cruzado de brazos a que el ordenador 
termine de enviar el documento a la impresora, Con este programa, 
tal inconveniente desaparece: se alcanzan velocidades de impresión 
superiores en un factor de 8. Desde luego, para los textos normales, 
la espera es nula. 
Al mundo de los juegos, de la mano de Palace Software (autores 
del Antiriad) nos llega un programa que pisa fuerte en Inglaterra y 
en España: el Barbarian. Este juego, aparte de la imponente dama 
que lo publicita en la carátula, es uno de los más adictivos y mejor 
hechos desde hace mucho tiempo en el ámbito de los combates cuerpo 
a cuerpo simulados por un ordenador, Además, es difícil, tan difícil 
que AMSTRAD Semanal proporciona los pokes que van a 
permitimos siempre decapitar al enemigo, e incluso elegir a cuál. 
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El mejor 
telex, 
un PC 


El Telexlot es una tarjeta 
que se conecta a cualquier slot 
de expansión libre y convierte 
los IBM PC y compatibles en 
un terminal de télex. Esta 
tarjeta, que funciona en el 
Amstrad PC1512, estará 
disponible a finales del mes de 
julio a un precio aproximado de 
180.000 pesetas. 
Tiene un interface de 
conexión a las redes de Télex o 
SPCM y otro de conexión a la 
impresora, un reloj de tiempo 
real y la posibilidad de trabajar 
con líneas de simple o doble 
polaridad. 
El programa puede transmitir 
o recibir mensajes en 
background, volcados en la 
impresora o grabados en el 
disco, además de tener la 
posibilidad de elegir entre dos 
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modalidades: residente o no 
residente en memoria. 
Esta misma empresa, 
PahlData, SA, tiene un equipo 
con microprocesador, llamado 
TCAI-3, que permite enlazar 
sistemas informáticos a la red 
de télex, pudiendo de esta 
manera corregir y editar los 
mensajes antes de enviados, SIn 
necesidad de interrumpir el 
trabajo. Este sistema cuesta 
280.000 pesetas más el 12 por 
100 de IV A. 
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Concorde 2.0: un programa para realizar discos de demostración 
Próximamente va aparecer 
una nueva versión del programa 
gráfico Concorde, desarrollado 
por Visual Communication 
Network. Con él se pueden 
realizar demostraciones 
autoejecutables y se pueden 
mezclar sobre la pantalla del 
ordenador gráficos, imágenes, 
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texto, música, animación y 
efectos especiales. Con todas 
estas funciones sólo faltaba la 
posibilidad de crear y editar 
juegos de caracteres propios, 
que es precisamente lo que hace 
la nueva versión 2.0. 
Otra de las innovaciones del 
Concorde 2,0 es que permite la 
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salida simultánea de gráficos de 
tipo bit-map, a los que el 
ordenador trata como un 
conjunto de puntos, y gráficos 
de tipo vectorial, que son 
reconocidos como un objeto 
concreto, no como un conjunto 
de puntos. De esta forma se 
pueden conseguir imágenes de 
gran complejidad y gráficos con 
mayor velocidad en su trazador 
gráfico. 
Los datos se pueden 
introducir desde el teclado o el 
ratón, pero también se pueden 
utilizar el digitalizador o 
scanner. El Concorde funciona 
en Amstrad PC y lo distribuye 
MicroMouse, S.A. Esta 
empresa dispone de un diskette 
de demostración, realizado con 
el programa, en el que se 
explican las posibilidades que 
tiene y da una serie de clases 
para usuarios de Concorde, 
aunque una de las cualidades 
que caracterizan el programa es 
la facilidad de uso, mediante 
menús, con la posibilidad de 
salirse del sistema operativo, 
ejecutar otro programa y volver 
al Concorde. 
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Proa abandona la protección de Cristal 
A partir del mes de junio 
Proa está suministrando una 
nueva versión del entorno 
operativo Cristal. Ésta, también 
para compatibles PC, no tendrá 
la protección contracopias que 
llevaba hasta ahora, de manera 
que se podrán realizar copias de 
seguridad o usado en el disco 
duro sin necesidad de utilizar 
un disco «llave». 
Las razones de este cambio, 
según Proa, se deben a las 
peticiones de los programadores, 
que hasta ahora tenían muchas 
dificultades en aprovechar todas 
las posibles aplicaciones de este 
entorno, ya que, para ejecutar 
los programas desarrollados con 
Cristal, necesitaban un módulo 
Run-lime, Así, desde ahora, se 
suministrará a los 
programadores este tipo de 
módulo con el que podrán 
ejecutar y reproducir todas las 
veces que qUIeran sus 
programas. Sin embargo, 
seguirá habiendo una versión 
incopiable del Run-time para 
aquellos que quieran proteger 
sus aplicaciones, con la ventaja 
adicional de llevar incorporados 
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los accesorios de sobremesa del 
Cristal como la calculadora, 
calendario, directorio... 
En esta decisión ha influido 
mucho, según las mismas 
fuentes, el interés en introducir 
el entorno operativo Cristal, 
que funciona bajo el lenguaje 
Boriar (un potente y sencillo 
lenguaje de cuarta generación 
en castellano), en los 
organismos públicos. Por su 
forma de trabajar, en este tipo 
de empresas se necesita instalar 
el programa en el disco duro. 
Además, al estar desprotegido, 
cualquier usuario podrá 
utilizado en entornos multitárea 
y en ordenadores 
semicompatibles, que hasta 
ahora eran rechazados por el 
sistema de protección. 
Apesar de haber abandonado 


la protección, Proa seguirá 
persiguiendo las copias ilegales 
de este producto. 
El precio de esta nueva 
versión será de 95.900 pesetas 
más IVA. 


ÚLTIMA HORA 
Erbe se hace cargo 
de la distribución 
de epix 
El pasado 3 de julio, en el 
Holliday Ink., Erbe anunció 
que, desde ese mismo día, se 
hará cargo de la distribución 
en España de los productos 
de la compañía británica 
Epix, dedicada al software de 
Juegos. 
Según fuentes de Erbe, 
esta exclusiva ha sido 
conseguida a través de U.S. 
Gold y, aunque todavía no 
se conocen títulos, los 
primeros juegos estarán 
pronto disponibles. 
Por razones de tiempo, en 
este número de la revista 
sólo se da una pequeña 
reseña de última hora, pero 
próximamente ampliaremos 
debidamente esta noticia. 


LONDRt.$ eHtJrecto 
PRESENTACiÓN 
DEL AMSTRAD 
PC1640 


La semana pasada Amstrad 
dio a conocer a los medios de 
comunicación información 
detallada a cerca de su nueva 
gama PC1640 -futuros 
sucesores de los PC1512-, los 
cuales serán lanzados al 
mercado británico y europeo en 
general el próximo año. 
Este ordenador ha sido 
presentado al público por 
primera vez en la exhibición 
Comdex en Atlanta (EE. UU.) y, 
en contra de los rumores de que 
éste tendría como base el 
procesador Infel 80286, se ha 
podido comprobar que 
definitivamente utiliza el chip 
8086. 
Otro detalle a tener en cuenta, 
aunque referido principalmente al 


tema comercial, es que el 
PC 1640 se venderá en tiendas 
de ordenadores especializadas 
en lugar de hacerlo a través de 
grandes almacenes como en el 
caso del PC 1512. Esto parece 
indicar claramente que el 
PC 1640 va dirigido a un usuario 
más profesional que el PC1512. 
Será interesante ver el precio con 
el que Amstrad lanzará 
definitivamente este ordenador. 
Sea como fuere, lo que parece 
seguro es que Amstrad, ahora 
que posee una amplia gama de 
ordenadores, está dispuesta a 
afrontar nuevamente la aventura 
americana y que intentará 
colocar sus productos en el difícil 
pero suculento mercado de los 
EE. UU. 
JUEGOS 
PARA EL PCW 
Design Design ha publicado 
una copilación de sus mayores 


éxitos con formato PCW llamado 
Distractions. La copilación 
consta de tres juegos de teclado 
y joystick en un disco, con un 
precio de 20 libras. Dos de los 
juegos habían sido lanzados con 
anterioridad: On fhe Run que te 
coloca en la posición nada 
deseable de tener que sanear un 
área que ha sido contaminado al 
derramarse el contenido de 
armamento químico en un 
imaginado laberinto mortal. 
Durante este «apacible viaje» 
puedes encontrarte con un sin fin 
de seres mutantes. Por otro lado, 
puedes elegir relacionarte con los 
personajes que se han poderado 
del mundo en el año 2112 antes 
de Cristo: 2112 A. D. El único 
juego nuevo de los tres es 
Nexor, en el cual tú te conviertes 
en un miembro de un equipo 
cuya misión es impedir que un 
arma secreta caiga en manos de 
los enemigos. 
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El 


Por Javier Barceló 


tón y 
dese 


a pantaIla 
rto 


El texto 
y la pantalla 


con texto. La gráfica la divide como si fuera un 
papel cuadriculado de cinco mil por ocho mil 
puntos. La esquina inferior izquierda es el punto 
cero, cero, y la esquina superior derecha e
 el 
ocho mil cinco mil. Esto da una pequeña idea de 
la preci
iÓn con la que se puede operar. ¿ Por qué 
contentarse con la resolución baja, si se dispone 
de la alta? A no ser, claro, que se vayan a 
utilizar dos ventanas en cuyo caso sólo 
una puede ser gráfica, y la otra 
funciona de manera normal. 
Aunque en modo gráfico se 
puede colocar 1 texto mediante la 
función Locate (Fila, Columna,) 
como en otros Basics, a la hora 
de realizar. filigranas es más útil la 
función move 
(Coordenada, Coordenada), 
por la posibilidad antes 
mencionada de la precisión a 
la hora de colocar los textos. 
Por otro lado, quizá la 
función más curiosa en las 
filigranas de texto es el 
comando Angle, que permite 
colocar el texto de maneras 
poco «ortodoxas». Aunque 
teóricamente, dando un ángulo 
determinado el texto debería 
salir con esa inclinación, 
probablemente por 
problemas de 
resolución sólo 
admite 
parámetros 
múltiplos 
de 90, 
con lo 
que el 
texto 


Aprovechando las características gráficas del 
entorno Gem, no hace falta contentarse con 
presentar los textos en la pantalla de manera 
convencional. Por el contrario, es difícil elegir la 
manera de hacerlo, entre tantas posibilidades 
que da. Veamos cómo hacerlo... 
El Basic2 trata la pantalla 
de dos maneras diferentes, 
según se defina como de 
texto o de gráficos. 
Pero se puede 
funcionar igual 
en ambas 
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se puede presentar normal, invertido, horizontal 
y vertical. Cuando hablamos de horizontal y 
vertical con las letras giradas también, y no 
derechas. 
Además, tenemos los tipos de letra. Existen en 
principio tres tipos distintos, cada uno con varios 
tmnaños diferentes. Los tamaños van expresados 
en puntos, cada uno de los cuales equivale a 1/72 
de pulgada, y se puede apreciar la variedad de 
tamaños de cada tipo en el menú de Fuentes. Hay 
que tener en cuenta que no todos los tipos se 
pueden hacer en todos los tamaños. 


Para que un ordenador 
funcione hay que comunicarse 
con él. En el caso del PC , esto 
es posible gracias al ratón y 
al teclado. 


Pero aún queda algo interesante. La función 
Seto Con esta función se pueden fijar muchas 
características del texto, aumentando la 
efectividad y simplificando las líneas de 
programa. 
Set COlOUT para fijar el color por defecto pan 
el texto. 
Set iont fija el tipo de letra. 
Set points para especificar el tamaño de las 
letras. 
Set angle hace lo mismo con el ángulo de 
escritura. 
Set mode especifica un tipo de escritura. 
Esta última consigue efectos muy curiosos, a la 
hora de mover el texto por la pantalla. Por 
ejemplo, si se le da el valor tres, al "mover» el 
texto cambiándolo de coordenadas e 
imprimiéndolo en la nueva posición, borra el 
texto antiguo, pareciendo que éste se pasea por la 
pantalla. El valor dos hace que el texto se 
arrastre, y el valor uno proporciona un texto 


e laves del 


GEM BASIC 


sombreado a la hora de imprimir. Este último 
modo no resulta muy estético en colores porque 
queda muy confuso. Sin embargo, el valor dos da 
un bonito efecto de relieve. 
Estos comandos son los que aparecen en el 
programa de ejemplo que acompaña el artículo. 
Las primeras líneas definen la ventana única. 
Los textos aparecen en las variables definidas en 
las líneas siguientes. Luego se establece el tipo y 
tamaño de letra, así como el modo. Después el 
primer bucle de movimiento del texto, que sitúa 
el cursar en una posición e imprime la variable 
en un color distinto cada vez. Las coordenadas 
van cambiando, de manera que el texto se mueve 
en diagonal por la pantalla. En las últimas líneas, 
un ejemplo de cómo imprimir con el texto en 
otras posiciones. Sólo queda experimentar. Al 
principio es un poco hoso, pero la práctica hace 
maravillas.. . 


Utilice 
el ratón 


A la hora de exprimir todas las posibilidades 
del Basic2, y por tanto, del Gem, hay que tener 
en cuenta el ratón. Existen muchas aplicaciones 
dentro de un programa en Basic y para ilustrar 
este artículo se ha elegido un simple menú. 
En este menú hay cuatro opciones, y al situar 
la flecha del ratón encima del número de opción 
elegido y pulsar los dos botones del mismo, la 
opción queda seleccionada. 
A simple vista, dos son los problemas a 
solucionar para tener en cuenta el ratón desde un 


PROGRAMA DE EJEMPLO 


RE
 A
STRAD SEM

AL 
RE!'! GE
BASIC2 
RE!'! !="..
. B. 1, 
PE
 Pr2p
ra
 la VeDta

. 
CLS 


!NDr
J 
PE
 
WINDm
 r!JLL 
WIND3W TITLE "Ejemplo de pre- 
senta
i6n. de Textos" 

E
 Define el text
 a 
resentar 
a$= "AMSTRAD SEMANAL" 
t$= .EJEMP

 DE TEY.TDS. 
e$= ";COLOCADOS
" 


d$= · I ASI I " 
REM Elige tips y ta
a;0 1e 
Letra 
SET rONT 2 
SEr ?OINTS 25 
SE'!' MODE 
 
RE" Bucles de presentación de 
texto. 
FOR i=200 TO 1 STEP -20 
MOVE 500+i;3100-i 
PRINT COLOUR (i/20)¡b$ 
NEXT i 
SET FONT 3 


FOP i=! Ir 200 ST
? +20 


Vt 700+i¡2
00-i 
PRINT COLOUR (i/20); aS 
NEXT i 
SET f'ONT 1 
SET POINTS 10 
MOVE 4000;1500 
PRINT ANGLE (0);($ 
MOVE 4000;1500 
PRINT ANGLE (180);c$ 
MOVE 4000;400 
PR!NT ANGLE (90);d$ 


END 


AMSTRAD Semanal 7 
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programa. U no, la detección de los pulsadores, y 
otro la posición del ratón en ese momento. 
Para detectar que se han pulsado los botones 
del ratón hay dos maneras. La más típica es 
utilizar la función Inkey$, pero Basic2 tiene otra 
función que realiza específicamente este 
cometido. Este comando es Button, que da como 
valor -1 cuando no están pulsados, y + 1 ó + 2 
al pulsar cada uno de ellos. De esta manera, se 
detecta la pulsación de los botones en el 
programa, y un problema está solucionado. 
El otro problema no es más difícil, aunque es 
un poco más complicado. Existen dos funciones 
que nos dan las coordenadas del ratón en todo 
momento. Estas son Xmouse e Ymouse, que 
lógicamente dan el valor en el eje X e Y 
respectivamente, Estas coordenadas vienen dadas 
por pixels, estando los valores de X 
comprendidos entre cero y seiscientos cuarenta, y 
los valores de Y entre cero y doscientos. De esta 
manera, teniendo en cuenta que cada fila o 
columna tiene ocho pixels, el cálculo es fácil y 
siempre se sabe la posición a la que apunta el 
ratón. 
U na vez solucionados los problemas, aplicarlos 
a un programa es fácil. Hay muchos métodos de 
hacerlo, pero se ha elegido éste para el programa 
de ejemplo por ser muy claro. Un primer bucle 
comprueba que no está pulsado ningún botón del 
ratón. Si el botón está pulsado, comprueba que 
la posición del ratón sea correcta, es decir, que 
esté apuntando a una opción. Esto se hace 
mediante el segundo bucle, anidado en el 
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primero. En caso de que se pulse un botón y las 
coordenadas correspondan con las posiciones en 
la pantalla de un botón, se le da a la variable ops 
el valor de la opción y se sale de ambos bucles. 


PROGRAMA DE EJEMPLO 


REM AMSTRAD SEMANAL 
REM EJEMPLO DEL USO DEL RATON 
RE" EN UN MENU... 
RE!'! f'. J. 9. L 


REM CREAMOS LA PANTALLA 
CLS 
SCREEN TEXT 
WINDOW OPEN 
WINDOW FUll 
WINDDW TITlE "M E N U 6 E N E R A l" 
SEr FON! 2 


REM ESCRIBIMOS El MENU EN lA PANTAllA 
LOCA TE 30;05: PRINT .1.- Opción Uno · 

OCATE 30;07: PRINT "2.- Opción Dos 1 
LOCATE 30;09: PRINT .3.- Opción Tres" 
LDCATE 30;11: PRINT "4.- Opción Cuatro" 
LOCATE 20;15: PRINT COlOUR (4);""arque la 
opción deseada con el PATON" 


q 
p 


REM BU
lE DE CONTROL DEL RATON 
lABEl control 
WHIlE BUTTON = -1 
opc=o 
x=XtofOUSE 
y=YMOUSE 
WHILE (x{230 OR x}345i 
Ir y}139 AND y(144 THEN opc=l 
Ir y}123 AND y{!29 THEN opc=2 
Ir y}!06 A
D y(114 THEN opc=3 
Ir y}S9 AND y(98 THEN opc=4 
IIEND 
"'END 


REM EN CASO DE OPCrON VALIDA, SIGUE... 
Ir opc{! DR opc)4 60TO control 
lOCATE 22;17:PR
NT "Ha elegido la 0pción..: "jOpC 
ENO 
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Por: Ignacio Álvarez García 


Con este programa, jugar a la brisca contra el ordenador puede 
resultar bastante divertido, si tenemos en cuenta que ganarle no es 
nada fácil, ya que el ordenador no tira las cartas al azar, sino 
ajustándose a las normas del juego. 


E ste es el juego de cartas de la brisca, en el 
que juega un jugador contra el ordenador. La 
pantalla se presenta de la forma siguiente: 


El juego se termina cuando se han acabado las 
cartas del mazo, momento en el cual se expone la 
puntuación y se pregunta si se desea jugar de 


P.u. 


carta que tira I 
el jugador 


mazo de 
las cartas 
que quedan 


. 


carta que tira 
el ordenador 


+- 


CUAL TI:RAS" 
L..+ I ¡,.. . . H 
+ 
+ + + + + carta que pinta 
+ R '" '" (última del mazo) 
'" "'" + + + +- 
r4 ? 1? 6+ 


cartas del jugador 
(para seleccionar una 
pulsar el n. o que está 
encima) 
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nuevo. También se puede detener durante la 
ejecución pulsando la tecla de borrado cuando 
nos toca tirar. 
Las jugadas del ordenador no son al azar, SInO 
en cierto modo inteligentes, y muy fácil de 
variadas o introducir otras nuevas, pues la 
ejecución es muy sistemática. 
La estructura principal del programa es un 
bucle que contiene cada jugada y que está 
situado entre las líneas 630 y 2480. 
En cada jugada el primero en tirar carta es 
aquel que ha ganado la baza anterior. Si ha sido 
el ordenador, este tira primero seleccionando la 
jugada que va a hacer entre 3 posibles. 
Posteriormente, se pide al jugador que tire su 
carta y se comprueba quién ha ganado. 
Si el jugador debe tirar el primero, porque ha 
ganado la baza anterior, según la carta que 
seleccione, el ordenador escogerá la suya, de 
acuerdo con el siguiente criterio: 
Se pregunta si es o no triunfo, y en cada caso 
si tiene o no tiene puntos. En cada uno de estos 


:Jf . 
. 
.. . 
R .. 4- 
.. . 
1 .
- h+ 
" . 
 
b 
... 
 
+ + 
... + 
f>+ 


CAllAS 
le 1 
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+ + 12- 11 4 
7+ 


casos buscará entre las cartas que tiene la mejor. 
El criterio de mejor se hace secuencialmente, 
buscando primero una carta que gane; si no 
encuentra ninguna busca una que pierda 
cediendo pocos puntos, etc., todo ello 


1- 


1 'rlí****¡tííí*tííí******t.t******* 
tlU: 
2 
* JUEGO DE 
A BRISCA 


:f 
., '* 
" 
:t 
4 
: 


Por Ignacio Alvarez Garcia 


* 
S :
: DVIEDO 
l 
6 't
*
**********t*t***t*****tt**** 
:rHt 


7 I 


10 SYMBúL A
TER 32 


20 INK 1,26:!NK O,O:!NK 2,9:iNK 3,1 


4:BORDER O 


30 PEN l:PAPER (1 
40 C
EAR:Dlr. a$(48}:DIM b$(3}:DIM e 
$
3):Dr
 1(3):DIM m(3) 
50 CLS:MDDE 1:TRUE=-1:FALSE=0:óura= 
4000:p=O:q=0:
OCATE 13,12:INPUT "no 

bre:",nombre$:nombre$=LEFT$(nombre 
$,6) 
60 SYMBOL 248,0,0,0,0,3,7,15,15 


70 SYMBDL 2t9,OJO,O,OJ129,195,231 J 2 


55 
80 SYMBOL 250,0,0,0,0,192,224,240,2 
40 
90 SYMBOL 251,15,15,7,7,3,3,1,1 
100 SYM80L 252,240,240,224,224,192, 
192,128,128 
110 SYMBOL 253,1,1,3,3,7,7,7,3 
120 SYMBOL 254,128,128,192,192,224, 
224,224,192 
130 SYMBOL 255,24,24,24,248,240,192 
,96,48 
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140 SYMBOL 240,24,60,126,255,255,25 
.5,255,255 
150 SYMBOL 241,31,63,127,255,255,12 
7,63,:31 
160 SYMBOL 242,248,252,254,255,255, 


254,252 , 249 


170 SYMBOL 243,24,24,24,24,24,24,25 
5,255 
180 SYMBOL 244.24,24,60,60,126,126, 
255,255 
190 SYMBOL 245,1,1,3,7,7,3,1,1 
200 SYMBOL 246,128,128,192,224,224, 
192,128,128 
210 SYM8DL 247,255,255,126,126,60,6 
0,24,24 
220 SYMBOL 170,0.0,0.0,56,56,254.25 
4 
230 SY
BOL 171,0,0,0,0,16,56,124,25 


.4 
240 SYMBOL 172,0,0,0,0,108,254,254, 
254 
250 SYMBOL 173,0,0,0,0,16,56,124,25 


. 
i¡ 
260 SYMBOL 174,254,16,56 
270 SYMBOL 175,124,56,16 
280 SYMBOL 176,124,56,16 
290 SYMBOL 177,254,16,56 
300 BOROER 9:PAPER 2:CLS 
310 ' define ventanas donde vaD a ¡ 
r las cartas 

20 FOR i=1 TO 3 
330 WINDOY #i,7!i-3,7!i+1.15,21 
340 PAPER li,I:PEN #i,O:CLS ti 
350 PEN 1:LOCATE 7ti-2,14:PRINT i; 
360 NEXT i 
370 WINDOW #4,32,36,15,21 



90 PAPE
 14.1:PEN 
4 0:CLS #
PT T 

90 PEN 3:LOCATE 32,14:PRINT ,.N,A 


. . 
, 
400 
OR j=5 TO 6 
410 YINOOW #j,7tj-10,7*j-6,2,8 
420 PAPER #j,l:PEN #j,O:CLS #j 
4:30 NEXT j 
440 LOCA TE 25,l:PEN 3:PRINT UPPERi( 
n'}l'¡íbre$) ; 
450 LOCATE 32,l:PEN l:PRINT "C.P,U. 


8; 
450 baraja 
as cartas y las roloe 
a en el mazo:> 
470 RANDOMIZE TIME 
480 FOR j=1 TO 4 
490 FOR i=l TO 10 
500 x=INT(RNDt40+1):IF a$(x){;'" TH 
EN 500 
510 PLOY 10,380-x:DRAW 100,380-x,1 
520 a$(x)=CHRi(i+48)+CHR$(j+225):IF 
i=10 THEN a$(x)="k"+CHR$(j+2251 
530 NEXT i 
540 NEXT j 
550 FOR h=1 TO 8 
560 a$(!1+40)="x" 
570 NEXT h 
580 FOR i=l TO 2 
590 b$(i)=a$(i):c$(i}=ai(i+2) 
600 NEXT i 
610 t=2:FOR i=1 TO 4:PLOT 10,380-i, 
2:DRAW 100,380-i,2:NEXT i 
620 ventana=4:carta$=a$(40):GOSU8 2 
590 
630 ' comienzo de una jugada 
640 i=O:j=O:k=O:bb=O:vv=O:h=O:FOR j 
=1 TD 3 
650 IF c$ljl="" THEN c$ljl=a$(2tt+2 



. 
.+ 
+ 
+ 
+ 


dependiendo de a qué grupo pertenece la carta 
tirada por el jugador. 
Por ejemplo, si quiere tirar una carta que gane 
a la tirada por el jugador, la condición de 
búsqueda de la carta será que su palo sea el 
mismo y que sea de valor superior. Además, se 
informa de si, caso de encontrarse una carta que 


b 
.. + 
.. + 
. + 
. oto 
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cumpla esa condición ganará el ordenador o el 
jugador. Con esta condición se entra en la 
subrutina de las líneas 3370-3490, que nos indica 
si hay alguna carta entre las que tiene el 
ordenador que cumple esa condición, y en caso 
afirmativo la tira. En caso de no encontrar 
ninguna, buscaríamos entonces una carta que no 
gane, pero que no ceda muchos puntos, o un 
triunfo, etc., siguiendo en todos los casos el 
mismo proceso anterior. 
Cuando se acaba una jugada se borran las 
cartas tiradas del grupo que tiene cada jugador y 
se sustituyen por las siguientes del mazo. 
Las cartas se presentan en seis ventanas, que 
son las siguientes: 


MI'" C.P.U. 
.... ,1' 
S 5 
lO... 10+ 


PI:ERDll:S 
.1 -
...-- 
1_ lL4 E4 
+ + 
S R S + + 
.. + 
109 129 10... 6
 


-q) 
660 IF b$(j)='1J1 THEN b$(j)=a$(2:i:t.+l 


+.:"!.I 
-;' 
670 ventana=j:carta$=b$(j):GOSUB 25 
90 
680 NEXT j 
690 ' asigna los puntos a cacta cart 
a 
700 FOR i=l Tu 3 
710 l(i)=O:m(i)=O 
720 IF LEFT$(b$(i),1)="1" THEN l(i) 
=11 
730 :F LEFT$(c$(i),!J="l" THEN m(i) 


=11 


740 IF LEFT$(b$(iJ,1)="3" THEN lti) 
=10 
750 IF LEFT$(c$(iJ,l)="3" THEN m(i) 
=10 
760 IF LEFT$(b$(i),1)="O" THEN I(i) 


=2 


770 IF LEFTS(c$(i),l)="S" THEN m(i} 


=2 


7BO IF LEFT$(b$(i},1}="9" THEN l(i} 


790 IF LEFT$(c$(iJ,l)="9" THEN m(i} 


-., 
-.; 


800 IF LEFT$(b$(i),l)="k" THEN l(i) 
=4 
810 IF 
EFT$(c$(i),l)="k" THEN m(i} 
=4 
820 
EXT 1 
830 ' si las tres cartas son "x" se 
ha acabado el juego 
840 IF (c$(l)="x" ANO c$(2)=.x" AND 
c$(3)=.x.) THEN 2500 
850 rebaja el mazo en 2 cartas:si 


hemos ganado la ultima tiramos pri 
mero(linea 860), y si nos ha ganado 
tira el CPU primero(linea 2130) 
B60 t=t+l:PLúT lU,381-2*t s O:DRAW 10 
0,301-2*t:PLOT 10,380-2*t,2:DRAw 10 
0,380-2tt.2:IF q=0 THEN 870 EL SE tiu 
TD 2130 
e70 PEN l:LOCATE 5,12:PRINT "CVAL T 


IRAS?I!; 


8BO CALL &8BOO 


890 qwert$=INKEY$:IF (qwert${}H1 V A 


NO qwert$<}"2 U ANO Qweri$<>"3") THE 
N 900 ELSE n=VAL(qwert$):GOTO 930 
900 IF qwert$(}"U THEN PRINT CHR$(7 


"¡. 
:, 
910 IF qwertS=CHR$(127) THEN MOOE O 
:GOTQ 2520 


920 GOTO 890 
930 IF b$(n)="x. THEN PRINT CHR$(7) 
; : GOTa 890 
940 ' escribe la carta en la ventan 
a de tirar 
950 ventana=5:carta$=b$(n):GOSUB 25 
90 
960 ' si la carta es de triunfo ir 
a 1680 
970 IF RIGHT$(b$(n),l)=RIGHT$(a$(40 
), D THEN 1680 
980 ' la carta no es triunfo:si no 
lleva puntos va a 1280 
990 IF l(n)=O THEN 1280 
1000 ' la carta es no triunfo con p 
untos:primero se intenta ganar con 
una superior del mismo palo,sl no s 
e intenta con un triunfo, y si no s 
e echa una peor sin puntos 


1010 tira una superior del misMo 
palD(nos gar.a) 
1020 ganacpu=TRUE 
1030 OEF FNconcticion(x)=(RIGHTS:r$( 
x),l)=RIGHT$(b$(n),l») ANO (m(x»l( 
11)) 
1040 GOSUB .3:370 


1050 IF encontre THEN 6AO 


1060 ' tira un triunfo con 
occs Du 
ntos(nos gana) 
1070 ganacpu=TRUE 
lOBO DEF FNcondiclon(x)=(RI£HT$(c$( 
x).1)=RIGHT$(a$(40),!) AND (m(x){5 


1090 GOSUB 3370 
1100 IF encontre THE
 640 
1110 ' tira un triunfo con puntos(n 
os gana:; 
1120 ganacpu=TRUE 
1130 DEF 
Nccndicion(x)=(qIGHT$((t( 
xj¡1)=RIGHT$(a$(40),
) 
1140 GGSUB 3370 
1150 IF encontre THEN 640 
1160 ' tira una carta con pocos pun 
tos(ganamos) 
1170 ganacpu=FALSE 
1180 OEF FNcondicion(x)=(m(x)\5: 
1190 GOSUB 3370 
1200 !F encontre THEN 640 
1210,' tira una cualquiera 
1220 ganacpu=FALSE 
1230 OEF FNcondicion(x}=TRUE 
1240 GOSUB 3370 
1250 IF encontre THEN 640 
1260 hemos tirado no triunfo sin 
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#1,#2 Y #3: cartas del jugador 
#4: carta que pinta 
#5: carta tirada por el jugador 
#6: carta tirada por el ordenador 
Las cartas se almacenan en variables de tipo 
caracter, y la forma de las mismas es: 
a$ = "3" 
palo de la carta 
núm. de 
la carta 
(1 a 9, y k 
para el rey) 


1J 


GANAS 
1 2 3 
+ + 
+ + 
e + e 
+ + 
+ + 
11.+ 7+ 11
 


Por tanto, left$ (a$, 1) será el número 
de la carta, y right$( a$, 1) será su 
palo. 
El resto del programa es: 
Líneas 10-450: inicialización de variables, 
definición de caracteres y de ventanas. 
460-620: baraja las cartas, reparte las primeras 
y establece el pinte. 
630-2480: estructura principal. Realiza una 
jugada completa. 
2490-2570: fin del juego y vuelta a empezar. 
2580: subrutinas 


puntDs:intenta primEro oanar con UD 
a sup
rior,siDo'perder sin ceder pu 


ntús:sinD ganar con UD triunfD 


1270 ' tira una del mIsmo palO y su 


" , 
. . 
perlD¡
nOS qanaJ 
. - 


1280 ganarpu=TRUE 
i290 DEF FNcondiciofi(
)=(RrGHT$(e$( 
x),!)=RIGHT$(b$fn),l») AND (
(x»O) 


::300 60S
)B 3:37G 


1310 IF encontre THEN 640 


!320 
 tira una Gue piErde pero sin 

'U:1tos (!:an
mc¡s) 
. - 


¡330 Qanaepu=FALSE 


1340 JEf FNcDndiciQn(x)=(RIGHT$(c$
 

;11)<)R!GHT$(b$(n}!1)) AND (KIGHT$ 


(c$(x),l)<>R:GHT$(?$(40),!)' ANO Cm 


13::0 GQSU8 3370 


:360 
F encoDtre THEN 640 


1370 ' tira 
ra del miSffiG palo pero 
ln
erio:(GanaffiGS; 


.380 garacp
=FALSE 


:390 DEF rNcondicio
(x)=(R¡GHT$(r$( 
x},li=RiGHT$(b$(n),l)) ANO (ASC(LEF 
:$(r$(x),i)<ASC(
E
T$

$(n);l))) 
1400 
QSl!B 3370 
1410 IF encontre T
E
 640 
1420 ' tira una de; IDisffio palo supe 
rior(ya sin puntos)(hOS gana) 
1430 ganacpu=TRUE 
1440 OfF FNcondiclon(x)=(RIGHT$(e$( 
x),1)=RiSHT$(b$(n),!)) 
1450 60SUB 3370 
1460 IF encontre THEN 640 
1470 ' tira una que pierde pero con 
pocos puntos(ganamos) 



 


1480 ganaepu=FALSE 
1490 OEF 
Ncondicion(x)=(RIGHT$(c$( 
x),1)f>RI6HT$(a$(40),l)) ANO (m(x){ 

,) 


1500 tiOSUB 3
:70 


1510 IF encontre THEN 640 


1520 tira un triunfo de pocos pun 
tos(nos gana) 
1530 ganacpu=TRUE 
1540 aEr FNcondiclon(x)=(RIGHT$(c$( 
x)
i)=RiGHT${a$(40)
1)) AND {m(x){S 


i 5.50 SOSUB :3:370 


:5£0 IF e
eontre THEN 640 
1570 ' tira tr;unfú(nos gana) 
15:30 ganacpti=T
l.IE 
1590 OEr F
condi(ion(x)=(RIG
T$(c$( 
xj,!i=RIGHT$(a$(40i,l)) 
1600 GOSUB 3370 


1610 IF eneontre THEN 640 


1620 
 tIra una Eualquiera(ganamos} 


1630 ganacpu=FALSE 


1640 DEF FNcondiciDn{x)=TRUE 


16.50 GOSUB 

37C 


1650 !F encontre THE
 640 
1670 'tiramos un triunfo:si es SIn 


puntos va a 1870 sine va a 1700 
i680 IF l(nj=O THEN 1870 


1690 ' triunfo con puntús:intenta 9 
anarlo con uno superior,sino tira u 
na mala sin puntos 
1700 tira un triunfo superior(nos 
gana) 
1710 ganacpu=TRVE 
1720 OEF FNcondieion(x)=(RIGHT$(c$( 
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XJ,l)=RIGHT$(a$(40),l)) AND (rn(x)}l 
(n)) 
1730 GOSUE 3370 
1740 IF encontre iHEN 640 
1750 
 tira un no triunfo con 
OCD5 


" . 
puntos {gana
.Js} 
1760 ganacpu=FALSE 

770 DEF FNcondic¡on(x)=(RI6HT$(c$; 
x),l)(>RI6HT$(a$(40),1)) AND (ffi(X)( 


1780 GOSV8 3370 


i79
 !F encontre THEN 640 
1800 ' tira una cualquiera(gana
os) 


¡SiO qana:pu=FALSE 

820 DfF 
Nrondieion(x)=TRVE 


183e GDSUB 3:370 


1840 ¡F encontre THEN 640 


1850 . triunfo sin puntDs:prirnerD i 
ntenta tirar una maia, luego un trlu 


, ' 
nTO super ll)f 
1860 ' tira no triunfo sin puntos(g 
anarnos.! 
1870 ganaepu=FALSE 
1880 OEF FNeondicion(x)=(RIGHT$(c$( 
x),l)(>RIGHT$(a${40),l)) ANO (m(x)= 
O
 
1890 GOSI.IB 3370 
1900 IF encontre THEN 640 
1910 ' tira no triunfo con pocos pu 
ntGs(ganamos) 
1920 ganacpu=FALSE 
1930 DEF FNcondicion(x)=(RIGHT$(C$í 
x),l)=RIGHT$(a$(40),1)) ANO (m(x){S 


j 


1940 GOSI.IB 3370 
1950 IF encontre THEN 640 
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2380 
F l(n)}m(ij T
E
 2A30 EL SE :F 


1960 ' tira un triunfo mas 
ajo(gan 


2190 
OR i=1 TO 3 


i(n){m(i) THEN 2450 



?
ñ I
 r$
;\=nv
 T
t
 
1

 
2210 fF RIGHT$(c'$UrÚ<>RI6HT$(a$( 


amos) 


239j I
 ASC(
E
T$
L$(i) :l)))ASC(
E
 


:970 ganacpu=FALSE 
1980 OEF FNcondicion(x)=(RIGHT$(c$( 
x),1)=RIGHT$(a$(40),1)) AND (m(x)=O 


T$(
$(n),l)) THEN 2460 ELSE GOTO 24 


40):1) THEN 2230 
2220 IF 
(i)<5 THEN ventana=6:carta 


30 


2400 las cartas son de dlstiDto p 


$=
$(i):[Drta$=[$(i;:6DSUB 259ú:6GT 


) ANú (hSC(LEFT$([$(X;:¡)){ASC(LEFT 


aio.S: he
DS tiradc tri

fD he
Ds 
 


D 2290 
2230 tiEXT i 
2240 : tira una cualquiera 

1(A cnD 
-
 Tn 
 

;"...r-:.:. i Wi:. ¡'-.i. "U-'¿ 


Hb$(n),l))) 


anado 


199,j 6DSUB 3
:70 


2410 :
 QrGHT$(c$ii),:)=RIGH:$(a$(4 


2000 IF encontre THEN 640 


(i) , i:; T!-iE;¿ 2460 


20
O . tira un triunfo superior(ncs 


2420 :F RI6HT$(b$(n).li=RIGH T $(a$(4 


2260 IF c$(i)="x" T4EN 2280 


gana} 
2020 ganacpu=TRUE 
2030 DEF FNcondicion(x)=(RI6HT$(c$( 


2270 ventana=f:carta$=[$(i1:cDrta$= 


Q),l)THEN 2430 ELSE GOTO 2460 


c$(i):60SU8 2590:60TO 2290 


243C LGC
TE 5,12:PRIN:" SAN
S 


2280 NEXT 1 


n;:G=O:FU
 h=i 
O 3:!
 [$
h}=[G¡ta$ 


x}:1
=RI6HT$(a$(tO),1}) 


229Q LDCATE 5 i i2:PRrNT 9CUA
 TIRAS? 
11. 


T
EN :$(::)=".1) 


2040 GOSOS 3370 


2440 NEXT h:
5(n)=n
:p=p+
li
+1{n}: 
FDR bb=l TO dura:NEXT bb:FOR vv=l i 


2050 IF encontre THEN 5
0 


2300 CALL &8800 
2310 po$=INKEY$:IF po$="" TrEN 2310 
E
SE IF poi="I" THEN n=í ELSE IF P 


2050 ' tira una cualquiera(ganamos) 
2070 ganaepu=FALSE 
2080 DEF FNcondicion(x)=TRUE 


G 6:IF vv<>4 T
EN CLS 
(vv) 
2450 NEXT vv:GOTG 540 


o$=V2 n THEN n=2 ELSE IF po$=v3 H THE 


2450 LDCH
E S;12:P
IN: n PIE
GtS 
n;:Q=l:FOR h=l TD 3:IF [orta$=($(
1 


2090 GOSUB 337
) 


N n=3 ELSE !F 
D$=CHR$(!27) THEN 
O 


2100 IF encontre THEN 64
 


DE ú:BGTú 2520 E
SE PRIN
 CHR$(7;;: 


:
E?
 [i.{
;)=Jn; 


2110 :el CPU ha ganado la ultima j
 
gada y debe tirar primero: intenta t 
irar no triunfo bajo, si no triunfG 
bajo y si no una cualquiera 
2120 ' intenta tirar no triunfo ba! 
1) 
2130 FOR i=1 TO 3 
2140 !F c$(i)="x" THEN 2170 
2150 !F RIGHT$(e$(i),I)=RI6HT$(a$(4 
Oj, 1) THEN 2170 
2160 !F m(i){S T
EN ventana=6:carta 
$=c$(i):corta$=c$(i):60SUP 2590:GOT 
O ';>.,'«\ 
2170 NEXT i 
2180 ' tira un triunfo bajo 


2470 NEXT h:
$(n)=vn:FOR tb=l 
G d
 


60TO 2310 
2320 IF b$(n)="x" THEN PR!NT CHR$(! 
);:GOTO 2310 


ra:NEXi bb:F8R vv=l TO 5:iF vv<)
 
 

Er{ CLS #(vv) 


2330 ventana=5:carta$=b$(n):6DSlB 2 


2480 NEXT vv:60TO 640 


2490 . fin del juego. Si :05 
unl0S 
son mayores Que 60 
eroos ganaco. 
2500 IF p>60 T
EN ENV :,5,3,10,1,0, 

5015;-3i20:S0UN[ 2
300J300J0i
}úJl 
5 ELSE ENV 1:100J1,3:EN
 1,100,5,3: 


59
) 


2340 mira quien 
a ganado,Si ha 9 
anado el CPU va a 2460, si no va a 
2430 
2350 si las cartas son de distint 


I 


SOliN.D 1, 2€:4 , 
:OO , 1, 1,1 
2510 MODE O:PAPER O:CL):LOCATE 6,10 
:PRINT UPPER$(norobre$)j": "jp;:PEN 
3:LOCAiE 6,13:PRiNT "EL C:PU: "j120- 
p 


o palD va a 24új 
2360 IF RIGHT$(b$(ni,I)<>RIGHT$(c$( 
i) ,1) THEN 241;) 
2370 . las cartas son del mismo pal 
o.Gana el que la tenga superlor 


I 


. 
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Subrutinas 
Líneas 2580-3250: escribe una carta, que esté 
introducida en la variable carta$, y en la ventana 
indicada por la variable ventana. 
Líneas 3260-3360: rutina fin de jugada. Borra 
las cartas tiradas y espera un instante. 
Líneas 3370-3490: rutina de búsqueda de una 
carta que cumpla una condición introducida en 
FNcondición (x). Si encuentra una, tira esa carta 
(la escribe en la ventana #5), determina si gana o 
pierde, y suma los puntos obtenidos. 


b$O: 


c$O: 
10: 


PI:EJt»ES 
1 a s'+ 
-+ . -. + + 
.. .. . . . . 
. + + 
+ . . 
. . . . .. + 
.. .. 6+ 
5+ 7. .. 


mO: 
p: 
q: 


id. del ordenador. 
puntos acumulados por el jugador. 
determina quién ha ganado, y por 
tanto a quién toca jugar el 
primero en la siguiente baza. Si es 


Variables 
Las más importantes en el desarrollo del 
programa son: 
aJO: contiene las cartas según el orden 
en que se van a dar. 
contiene en cada momento las tres 
cartas del jugador. 
id. con las del ordenador. 
valores en puntos de las cartas del 
jugador. 


2520 PEN i:LOCATE b,20:PRINT notra? 
sir/! ; 
2530 qwe$=INKEY$:G
e$=LDwER$(qwe$}: 
IF Qwe!=*sn THE
 2540 ELS£ IF qW
$= 


"n" THEN CL$:
ODE l:ENJ E
SE GOTD 2 


530 


2540 FDR i=l Tu 48:a$(i)=..:NEXT 


2550 FDR j=! TD 3 


2560 b$(j)=nn:c$(J)=nn:
EXT 
2.570 fuTO .sO 
2580 
 sUDrutina para escribir las 
cartas en las ventanas 
2590 PE
 #(ve
tanajJO:PAPER #(venta 
na};1: IF (arta$=
xfl THE
 27
C E
SE 
IF LE
T$(larta$;lJ=
kn THEN nuro=iO 
ELSE n
ffi=VAL(carta$) 


2600 ON Dum BOTO 2620,2760J2
00
2B4 
O,2920,3ÚO
,30?013150,319Ú:3230 
2510 
 esrrite el as 


2620 ON ASC(R!6HT${íaria$,1)-
2S G 
OTO 2630,2660,2690,272J 
2630 LOCATE #(ventana)}4!1:PRINT #( 


ventana),carta$¡:
OCATE 
(ventana), 
l,7:PR!NT #(ventanaJ,carta$; 
2540 LCCA:E #(ventanaJ,3,3:PRINT #( 
ventana;,CHR$(24
);:LDCATE *(ventan 
aJ,2,4:PRINT #(veniana),CHR$(241)+C 
HR$;143)+CHR$(242);:LOCATE *(ve
tan 
ai,3,5:PRINT #(ventanaJ,CHR$(243); 
2650 GDrD 2740 


2660 LOCATE #(veniana},4,1:PRINT #( 
ventana),carta$¡:LOCATE #(ventana), 
l,7:PRINT #(ventana),carta$; 
2670 LQCATE #(ventanaJ,3,3:PRINT #( 
ventana),CHR$(244J;:LOCATE #(ventan 
a),2,4:PRINT #(ventana),CHR$(245)+C 
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HR$(i43}+CHR$(246j;:
UCATE #(ventan 


a),3,5:PRINT #(veniana),CHR$(247)¡ 
2680 GOTa 2740 
2690 LuCATE #(ventana),4,l:PRINT #( 
ventanaJ,ca
ta$¡:LOCATE #(venianaJ, 


1¡7:PRINT #{ventana;!(arta1 


2700 LOCATE #(ventana),2,3:PRINT #( 


ventana)JCHR$(248)+CHR$(249;+CHR$
2 


5ú)¡:LOCATE #(ventana),2,4:PRr
T #( 
ventana;,CHR$(251)+CHR$(143)+CHR$(2 
52)j:LOCATE #(ventana),3,5:PRINT #( 
ventana),CHR$(247)j 
2710 GOTO 2740 
2720 LOCA TE #(ventana),4,1:PRINT #( 
ventana),carta$;:LOCATE #(ventana), 
1,7:PRINT #(ventana),carta$; 
2730 LOCATE #(ventana),3,3:PRINT 
( 
ventanaJ,CHR$(244)¡:LOCATE #(ventan 
aJ,2,4:PRINT #(ventana),CHR$(253)+C 
HR$(143)+CHR$(254);:LOCATE #(ventan 
a),3,5:PRINT #(ventana),CHQ$(243)¡ 
27 40 RET()R

 
2750 ' escribe el 2 
2760 LOCATE #(ventanaJ,4,1:PRINT 
( 
ventana),carta$;:LOCATE 
(ventana), 
l,7:PRrNT #(ventana),carta$; 
2770 FOR ki=2 TO 5 STEP 3:LOCAT£ #( 
ventana),3,ki:PRINT #(ventana),CHR$ 
(170-226+ASC(RI6HT$(carta$,!»))¡:LO 
CATE #(ventana),3,ki+l:PRINT #(vent 
anaJ,CHR$(174-226+ASC(RIGHT$(carta$ 
,1»)); :NEXT ki 
2780 RETURN 
2790 ' escribe el 3 
2800 LOCATE #(ventana),4,l:PRINT #( 
ventana),carta$;:LOCATE #(ventana), 


1,7:PRINT #(ventana),carta$; 


2SiO FDR 
i=2 TC 6 STEP 2:LuCAiE #
 
ventana),3,ki:PRINT #(ventana),RIGH 
T$(carta$,l)¡:
EXT ki 


2B20 RETUF:N 


2830 ' escribe el 
 
2840 LOCATE #(ventana),4,l:PRINT 
( 
ventana),carta$;:lOCATE #(ventana!, 
l,7:PRINT #(ventana),carta$¡ 


2850 FOR ki=2 TO 4 STEP 2 


2850 FOR kj=2 TO 5 STEP 3 
2870 LOCA TE #(ventana),ki,kj:PRINT 
#(ventanal J CHR$(17ú-226+ASC(RIGHT$( 
carta$,l)))¡:LOCATE #(ventanaJ,ki,K 
j+l:PRINT #(ventana),CHR$(!74-226+A 
SC(RIGHT$(carta$,l))\; 
2880 NEXT kj 
2890 NEXT ki 
2900 F:ETl!RN 


2910 
 escribe el 5 


2920 LOCATE #(veDtana),4,!:PRINT #( 
ventana),tarta$;:LOCATE #(ventana), 
l,7:PRINT #(ventana),carta$¡ 
2930 FOR ki=2 TO 4 STEP 2 
2940 FOR kj=2 TO 6 STEP 4 


2950 LOCATE #{vent
TIa)JK1:kj:PRrNT 


#(ventana),RIGHT$(carta$¡l);:NEXT 


2%0 NEXT k i 
2970 LOCATE #(ventana),3,4:PRINT #( 
ventana),RIGHT$(carta$,l)j 
2980 RETURN 
2990 ' escrIbe el 6 
3000 LOCATE #(ventana),4,l:PRINT #( 
ventana),carta$j:LOCATE #(ventana) 
l,7:PR!NT #(ventana),carta$; 
3010 
OR ki=2 iO 4 STEP 2 


v 
-5 


3 
3 
3 
v 
ti 
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79 


n: 


4-1. 


FNcondicion: 


ganacpu: 


encontre: 


o juega primero el ordenador, si 
no el jugador. 
número de jugadas que se llevan. 
Sirve para ir rebajando las cartas 
del mazo. 


t: 


carta$, 
ventana: 


Serie 
ORO 


número de la carta elegida por el 
jugador (1,2 ó 3). 
contiene la condición para tirar 
una carta. Es una función que da 
un resultado booleano. 
variable booleana, que indica 
quién gana en la jugada si e
 
ordenador tiene la carta buscada. 
también es booleana. Si es cierto 
quiere decir que ya se ha 
encontrado una carta, y nO es 
necesario seguir buscando en otras 
opCiones. 


variables de entrada a la sub rutina 
de escritura de las cartas. 


3020 FDR kj=2 
D t S¡EP 2 


3030 
QCATE #(ventana),ki,Kj:PRINT 
#(ventana:,RIGHT$(carta$,l);:NEX¡ 
 


30A:) NEX7 k i 


3050 RE T l1RN 
3060 ' escribe el 
3070 
GCATE #(ventana),4,l: P RINT #( 


ventanaj,carta$;:LOCATE #(ventana), 


l,7:PRINT #(ventana),carta$; 
3080 FOR ki=2 TC 4 STEP 2 


3090 
QR kj=2 iD 6 STEP 2 


3100 
JCATE #(ventana)

i!
j:PRINT 


#(ventana),RIGHT$(caria$,l)¡:NEXT k 


:31:0 
EXT ;
i 


3120 LOCATE #(veniana),3,3:PRINT #( 
ventana),R!6HT$(carta$,l); 
:3130 RETURN 
3140 ; escflbe la jota 


3i50 LOCATE #(ventana):3,i:PRINT #
 


ventana),"iO";RI6HT$(caria$,l);:LOC 


11 


ATE #(ventana),i,7: P RINT 
(ventana) 
,"10"¡RI6HT$(carta$,l); 
3160 LOCATE #(veniana),2,3:PRiNT #( 
ventana),CHR$(150)+CHR$(154)+CHR$(1 
56)j:LOCATE 
(ventana),L,4:PR!NT 
( 
ventana),CHR$(!47)+CHR$(154)+CHR$(1 
56i;:LOCATE #(veniana),L,5:PRINT I( 
veniana),CHR$(i47)+CHR$(154)+CHR$(1 


I 


¡:Ij\ . 
-,J'.U, 


3170 RETURN 
3180 ' escribe la reina 
3190 LOCATE #(ventana),3,1:PRINT #( 
ventana),"11";RIGHT$(carta$,1);:LOC 
ATE #(ventana),l,7:PRINT #(ventana) 


.Vii
;RI6HT$(Larta$,l); 
.. . . 


3200 LOCA TE #(ventana),2,3:PRINT #( 


ventana):CHR$(15u)+CHR$(1541+CHR$(i 


55)¡:LCCATE #(ventana),2,4:PRINT #( 
ventana),CHR$(149):LGCAT
 #(veniana 
),2,5:PRINT #(ventana),CHR$(147)+CH 
R$(154)+CHR$(153); 
3210 RETURN 


3220 : escribe el rey 


3230 LOCATE #(ventana),3,l:PRINT #( 


v2ntana)1
12n;RIGHT$
(arta$Ji);:LúC 
ATE #(ventana),1,/:PR1NT #(ventana) 
,"12";RIBHT$(caria$,1); 
3240 LOCA TE #(ventana),2,3: P RINT #( 
ventana),CHR$(150)
CHR$(154)+CHR$(1 
56);:LDCATE #(veniana)¡2,4: P RINT #( 
ventana),CHR$;151)jCHR$(154);CHR$(2 
5S):LOCATE #(ventana),2,5:PRr
T #(v 
entana),CHR$(149)+" "+CHR$(149) 
3250 RETURN 
)260 ' sutrutina de fin de jugada,8 
orra las cartas tiradas y espera un 
ti empc 1 
3270 FOR h=l TD 3 


3280 IF c$(hj=carta$ THEN c$(h)=nn 


32'30 NEXT h 
3300 bi(n)=". 
3310 FOR bb=1 TO dura 
3320 NEXT bb 
3330 FOR vv=l TO 6 
3340 IF vv{)4 THEN CLS
(vv) 
3350 NEXT vv 
:3:360 RETl1RN 
3370 'rutina Que busca la carta que 
cumple la eondicion deseada 
3380 enconire=FALSE 


3390 FOR i=1 TO 3 
3400 IF c$(i)="x" THEN 3420 
3410 !
 FNcondicion(i) THEN 3440 
3420 NEXT i 
3430 GOTa 3490 
3440 ventana=6:carta$=c$(1):GOSVB 2 
590 
3'50 LOCA:E 5,12 
3460 IF ganaepu THEN q=l:PRINT" P 
!EROES "ELSE q=O:p=p+m(i)+:(n):PR 
¡NT' GANAS " 
3470 GOSU8 3270 
3480 en:or¡tre=TRUE 
3490 RETURN 



 


 

 


P dra que tus 
dedos no realicen 
el trabajo duro, 
AMSTRAD 
Semanal lo hace 
por ti Todos los 
listados que 
incluyan este 
logotipo se 
encuentran a tu 
disposición en un 
cassette mensual, 
solicítanoslo. 
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Recuperar ficheros 


Uno de los problemas de 
los diskettes es su fragilidad, 
Muchas veces se descubre que 
los datos de un fichero no se 
pueden leer porque algunos 
de los sectores del diskette 
están irrecuperables, Pero no 
todo está perdido. Se pueden 
recuperar todos los datos 
menos los que estén escritos 
precisamente en el o los 
sectores defectuosos, 
Suponiendo que el archivo 
PRUEBAS.DAT tenga un sector 
defectuoso, haciendo: 
RECOVER PRUEBAS.DAT 
el ordenador repasa sector 
por sector todos los de ese 
programa, inutilizando los que 
den error, pero dejando el 
programa operable. Además, 
escribe en una tabla que 
guarda en cada disco el 
número de sedor erróneo, 
para no volver a utilizado, 
Otro uso de esta orden es 


, 


en el caso en que el directorio 
del disco está dañado, o se 
ha borrado, RECOVER C:, sin 
más parámetros, rehace un 
directorio borrado, dando a 
los programas el nombre 
FILE0001.CHK. Pero, 
atención, esto lo hace con 
TODOS los programas y 


I 


.. 


cc 
e 
q 
o 
e 
ti 

 
I 


a ese subdirectorio, haremos: 
SUBST F: 
C: 
 GEM 
 GEMGRAPH 
 IM- 
ÁGENES 
De esta manera, toda 
referencia que se haga a la 
unidad de disco F: se estará 
haciendo realmente al 
directorio IMÁGENES. Una 
vez que se acabe de utilizar 
esta orden, para eliminar la 
definición se hará: 
SUBST F:lD 
También se elimina la orden 
al apagar el ordenador o 
reinicializarlo. 
La unidad que se 
especifique debe ser una letra 
de las NO reconocidas por el 
sistema como ¡:>osible unidad 
de disco real. El MSDOS 
reconoce como reales a las 
unidades desde la A: hasta la E, 
Utilizando las unidades 
reales, lo único que se podría 
hacer es «convertip> una de 
ellas en otra, de manera que 
al llamar un programa a una 


\... 


lit.. 



 


e 
E 

 
( 
I 


archivos de la unidad de 
disco, dado que no tiene 
manera de saber cuáles están 
bien y cuáles no, No es 
aconsejable ejecutar esta 
orden a no ser que todo el 
disco sea inservible, o bien se 
tenga copia de seguridad de 
todo el contenido del disco. 
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Discos como subdiredorios 


unidad de disco, éste ejecute 
las operaciones de lectura y 
escritura en otra, Esto se 
haría con el comando 
ASSIGN. Por ejemplo, si 
queremos que todas las 
operaciones se hagan con el 
disco duro C: y no en 
diskettes, podríamos hacer: 
ASSIGN A=C B=C 
De esta manera, todas las 
llamadas a las unidades A y B 
se ejecutarán en la C: 
Hay que tener mucho 
cuidado con esta orden. Hay 
órdenes que borran todo el 
contenido de un disco, como 
FORMAT o BACKUP, Si se 
tiene asignada la unidad C: 
como única unidad, y por 
ejemplo se quiere hacer 
BACKU P en diskettes, el 
programa emite un mensaje 
diciendo que se van a borrar 
todos los datos de la unidad 
A: pero en realidad, VA A 
BORRAR LOS DATOS DE LA 
UNIDAD C:. - 


Hay ocasiones en las que 
hay que manejar ficheros O 
programas de un 
subdirectorio desde otro 
distinto. En esos casos, para 
llamar al programa o fichero 
hay que teclear además de su 
nombre el de los directorios a 
recorrer para llegar a él. 
(
directorio 
 subdirectorio() 

nombre...) 
El MSDOS dispone de 
una orden que 
«simula» la creación de una 
nueva unidad de disco, pero 
que en realidad es una 
trayectoria para llegar a un 
directorio. Esta orden es 
SUBST. 
Por ejemplo, si queremos 
convertir subdirectorio 
IMÁGENES, que está dentro 
del subdirectorio GEMGRAPH, 
que a su vez está en el 
directorio GEM en la unidad 
de disco F, de manera que 
baste con especificar 
. F:nombre,ext para que vaya 
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Basic más compatible 


(.,> . 
.
. 
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Realmente, casi ningún 
compatible puede ejecutar 
estos BASIC' s. Y como había 
que dar un BASIC con el 
ordenador, Amstrad eligió 
el camino del GEMBASIC, 
totalmente incompatible en 
programas con el BASIC de 
IBM. Otros fabricantes de 
compatibles, sin embargo, 
eligieron adaptar el BASIC 
para que sí funcionara en sus 
ordenadores, con lo que el 
BASIC que tienen es 
virtualmente idéntico al del 
pe. A los usuarios de los 
Amstrad que vayan a hacer 
sus programas en BASIC 
desde el principio, les dará 
casi lo mismo hacerla en un 
BASIC o en otro, dado que 
sus comandos son muy 
similares. Pero si ya tienen 


V' 


'
 


/; 


1, 


_.....b. .. .. 


programas en el BAStC 
MICROSOFT, no les habrá 
hecho mucha gracia no poder 
ejecutarlos en su compatible. 
Pero no todo está perdido. 
Desde luego, fácil solución no 
tiene, pero aunque 
conseguirlo no sea fácil, hay 
un BASIC de compatibles que 
sí funciona en Amstrad, y 
es casi idéntico al 
MICROSOFT, pudiendo 
ejecutar una gran mayoría o 
todos lo
 programas de dicho 
BASIe. Este es el que viene en 
el compatible BONDWELL, y 
su nombre es GWBASIe. Si 
logra conseguirlo, tendrá un 
genuino BASIC MICROSOFT 
en sus chips. Cómo hacerla es 
algo que queda en sus 
manos. 
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Copias 
gráficas 


En determinados momentos 
resulta importante obtener 
una copia por impresora de 
la pantalla. Si esta pantalla 
sólo tiene textos, el asunto no 
plantea problemas, utilizando 
las teclas de mayúsculas y 
ImpPt. Pero si la pantalla es 
gráfica, para que el resultado 
deseado sea satisfactorio es 
necesario haber cargado 
previamente la orden 
GRAPHICS. Resulta muy útil 
incluir esta orden en el fichero 
AUTOEXEe.BAT de manera 
que se cargue 
automáticamente cada vez 
que el ordenador se conecta. 
La copia impresa sale con 
los colores reproducidos en 
forma de escala de grises. Si 
se añade el parámetro IR el 
dibujo saldrá invertido, es 
decir, que el fondo será 
oscuro y el dibujo claro. En 
caso de impresoras de color, 
dispone de cinco parámetros 
según el tipo de impresora, 
siguiendo los están
ares de 
IBM. 
Otros dos parámetros que 
se pueden especificar son IF, 
que provoca que la imagen 
salga en el papel girada 
noventa grados, y IC, que 
centra la imagen en el papel. 
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Remítenos 
hoy mismo 
el cupón de pedido 
que encontrarás 
en la solapa 
de la última página. 
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Solicita los números 
atrasados 
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Reloj por 
. . 
Interru p ciones 


U na de las posibilidades menos explotadas de 
los Z80 es la programación utilizando 
interrupciones. Mediante este tipo de 
instrucciones es posible obligar al ordenador a 
realizar dos, tres o más tareas de forma que su 
ejecución parezca simultánea. En esta ocasión, las 
interrupciones se han utilizado para implementar 
la aplicación que más veces ha servido de 
ejemplo, un reloj. ¿Quién se anima a ponerle 
una alarma? 


1 'RELOJ 
POR 1 NTERRUPC lONES 
10 CLS:MEMORY 19999 
20 DIREC=&4E20 
30 FOR 1=1 TO 17 
40 READ 
OD

 20 STEP 2 
50 FOR J - V 1 AL ("&" +MID$ (CODE$ , J, 2 
60 BYTE= 
» REC BYTE:DIREC=DIREC 
70 POKE DI . 
+1 
80 NEXT 
90 NEXT 1 . PRINT" INTRODUCE 
100 LOCATE 1, . " 
COORDENADAS DEL RELOJ 
110 INPUT"COLUMNA:",C 
120 INFUT"FILA E :;: 
OKE &4E8F, C 
130 POKE &4E8 . . 
140 CALL 20000 06810EOO 
150 DATA 






i

¡
11010001 
160 DATA BCC9E5D5C5F5 
170 DATA 1


;

;21C14E343E02 
180 DATA 
E2033AF7721C04E343E 
190 DATA OABE2028AF772B343E06 
200 DATA BE201FAF7721BD4E343E 
210 DATA 14AF772B343E06 
220 DATA 




110000ED53BC4E 
230 DATA ED53BF4E3E01CDB4BB3E 
240 DATA 18CD96BB3E01CD90B B21 
250 DATA 5BB11BC4E0605 
260 DATA 
¡




D5ABB1310F73E 
270 DATA 00CDB4BB3E09CD1EBB28 
280 DATA 0621C24ECDECBCFDE1DD 
290 DATA E1F1C1D1E1C900000AOO 
300 DATA 00 000000000000000000 
310 DATA 


20 AMSTRAD Semanal 


K\ ( ( 
(!\ -',l
 ( ( 
" 


\" 
.1.... \ 

 \;/>,. 
'
\ 
, \ 
(\--., " ,/' 
y............... 
'-: 



 "- ID 

 .... 
l' .. 
 
! 
'- 



 
I 




 


c() 


Giros en 
el es p acio 
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Si le entusiasma la geometría tridimensional y 
más concretamente los giros de objetos sólidos en 
el espacio, este programa seguro que lo acogerá 
con mucho interés. Al ejecutarse podrá disfrutar 
de un giro completo de una figura cúbica. 
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1 REM ****************** 
2 REM * GRAFICOS EN 3D * 
3 REM ******************EG' XO 
K O O . BORDER o: D ' 


 

 ORiGIN 320,20 0 : N =150: M =5 
20 FOR X= O TO 360 STEP M 
30 A= N*COS<X): B=O:C=N*SIN<X) 
40 D=_<C*C)/N:E=A: F=A*C/N 
50 G=F: H=C:I=-D-N 
60 CLS' INK 1,0 DR 
70 MOVE <A+D+G)/2, <B+E+H)/
 D 
AWR _D,-E:DRAWR -g,-h: DRA 
,E A D+G)/2 <-B-E+H)/2: 
60 }IlOVE (- -, - 
DRAWR D, E: DRAWR -G, -H: DRAWR 

O-
VE <A_D+G)/2,<B-E+H)/2:DR 
AWR _A,-B:DRAWR _G,-H:DRAWR A, 
B <_A+D+G)/2,<-B+E+H)/2 
100 XOVE G -H.DRAWR - 
:DRAWR A,B:DRAWR -, . 
A -B 
lio INK 1,26: BEXT X 


Scroll vertical 
y cambios de p antalla 


Con este sencillo truco los efectos que puede 
conseguir son más que sorprendentes, 
Simplemente se trata de teclear POKE 
48622,255. 
A primera vista, este poke no, hace 
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, 
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absolutamente nada, sin embargo si se pulsa la 
tecla ESC las letras cambiarán, y si se pulsan 
repetidas veces esta misma tecla y el '1', 
SHIFT + '1' o SHIFT + ESC, la pantalla dejará 
de tener bordes por arriba y por abajo y se 
producirán extraños cambios en la pantalla. 
Otro pequeño truco, menos sorprendente, pero 
mucho más eficaz es actuar sobre la posición de 
memoria 48622 para desconectar el RESET. Los 
posibles valores son los siguientes: 
Poke 48622,201 desconecta el reset. 
Poke 48622,195 conecta el reset. 


Pokes p ara Manic Miner 
Por Eugcnio Santos y Ginés Lifante 
En la revista número 88 aparecía un POKE 
para tener vidas infinitas del Manic Miner, pero 
que solamente valía para los programas en cinta 
de cassette. 
Aquí tengo el gusto de enviarles una nueva 
serie de POKEs que al igual que la anterior 
versión, nos da la posibilidad de jugar al Manic 
con vidas infinitas, pero para los programas en 
disco, y además incluimos una variación, 
mediante la cual se nos permitirá elegir la 
pantalla que más nos guste para comenzar el 
Juego. 


10 "***********************' :=****** 
20 "****** GINES LIFANTE & P. 
HOLO **** 
30 "*********************************** 
40 CLS 
50 INPUT"Empezar en pantall a (1-20)': ", n 
60 IF n<l OR n)20 THEN GOTO 40 
70 INPUT"Vidas infinitas (SIN): ",a$ 
80 OPENOUT"d" 
90 MEMORY g,:FDF 
100 CLOSEOUT 
110 LOAD"manic: 
120 IF a$="S" OR 03$="5" THE
j GOTO 1.(j.0 
130 GOTO 150 
140 POKE g,2DA9, O 
150 POKE &:2CF3, O 
160 POKE 
,2CF Lj., O 
170 POKE g,2CF5, O 
180 POkE &2D83,0 
190 POkE &2D84,O 
200 POkE g,2D85, O 
210 POKE &2540, (n-1) 
220 CALL g,FFO 


CUJÚ ES SUT
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Comunicación 
total 


Esta tarjeta Kortex 1200 
totalmente compatible con el 
Amstrad PC 1512, es un 
modem integrado, gestionado 
por software que opera en 
cuatro rangos diferentes: V21 
(300 baudios), V22a (1200 
baudios asíncrona), V22b (1200 
síncrona) y V23 (1200/75 
baudios). 
Permite salvaguardar la 
información enviada tanto en 
disco como impresora, 
conectándose no sólo a otro 
ordenador compatible PC para 
la transmisión y recepción vía 
telefónica de ficheros de 
caracteres ASCII, sino además 
con bancos de datos y 


El otro patrón de 
la compatibilidad 


Si en cuanto a ordenadores 
tipo PC se decide tomar como 
patrón para la compatibilidad al 
IBM, en el mundillo de las 
impresoras también existe un 
standard: la marca Epson. Con 
toda seguridad, en cualquier 
programa que realice gráficos 
para plasmar en una impresora, 
habrás podido ver esta marca 
en el menú de impresoras tipo. 
Incluso la mayoría de las 
impresoras gráficas del mercado 
(incluyendo las mismas 
impresoras Amstrad DMP) 
cumplen la norma Epson. Tras 
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macroordenadores como los 
IBM, V AX de Digital y Bull 
entre otros, en modo síncrono o 
asíncrono. 
Por otra parte, la tarjeta 
Kortex posibilita la 
transformación del Amstrad PC 
1512 en un terminal de 
videotexto mediante sistema 
Minitel. 
La operación de marcaje del 
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número telefónico se puede 
realizar desde el mismo teclado, 
disponiendo la tarjeta de un 
pequeño altavoz que permite 
seguir este proceso. 
De la distribución de la 
tarjeta Kortex 1200 se encarga 
Agroinformática y 
Comunicaciones, Sagasta 3, 
Zaragoza; te!.: (976) 21 19 28, y 
cuesta 168.000 ptas. 
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mucho tiempo de espera, por 
fin la prestigiosa marca _ :tá 
presente en el mercado español 
de la mano de Epson-STI, y 
para abrir boca aquí tenéis la 
gama FX compuesta por los 
modelos 800 V 1000 de similares 
características, pero con la 
diferencia entre ellas del tamañ, 
de su carro. 
Ambas son capaces de 
escribir a una velocidad de 24-0 
caracteres por segundo en modo 
élite borrador, reduciéndose _ 
4-0 c.p.s. si se pretende mayor 
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Más decibelios 


Si cuentas con una cadena 
musical Amstrad y te quejabas 
de potencia sonora para 
organizar guateques o poner 
música en un jardín o terraza, 
Ram.Rom, Infantas, 21. 28004 
Madrid; tel.: (91) 522 27 97 te 
presenta la solución. 
Se trata de un amplificador 
en cascada o booster que se 
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l,¡lidad de impresi6n (letra 
NLQ), Todos los tipos de letra 

N] ,Q, flite. pica, comprimida, 
...pandida, etlo) se pueden 
obtena por códigos de control 
desde software, pero también los 
tipos más comunes (élite, 
com{Jrimida, NLQ y «draft..) se 
CCJnslguen pulsando las 
correspondientes teclas sobre la 
misma impresora. 
Para mayor comodidad, las 
Epson FX están dotadas de 
función de carga automática de 
hojas sueltas, desmontando a 
voluntad la unidad de tracción 
para el papel contmuo, 
Con el fin de reducir el 
tiempo de espera en el 
ordenador cuando se encarga un 
listado de considerable tamaño, 
las FX cuentan con un «buffer.. 
de 8 Kb. 
Con estas características, las 
impresoras Epson FX pueden 
hacer muy buena pareja con tu 
Amstrad PC 1512, si estás 
interesado en ellas podrás 
conseguidas al precio de 84-.729 
y 118.04-5 ptas. para la 800 } 
1000, respectivamente en 
Comercial Nuevos Ministerios 
en el mismo vestíbulo central de 
la estación Renfe de la calle 
Raimundo Fernández Villaverde 
de Madrid, Tel.: (91) 
456 35 58. 


conecta a la salida de los 
altavoces de tu equipo 
sustituyendo los de serie por 
otros especiales que aumentan 
hasta los 50 watios la potencia 
sonora. 
La alimentación del booster se 
realiza de forma independiente 
a la cadena enchufándose 
directamente a la red. Para 
mejorar la fidelidad de la 
cadena dispone de filtros 
correctores de frecuencias, 
así como 
de 
atenuadores a 
su entrada 
para evitar la 
distorsión. 
Para que te 
suene aún 
mejor, 
Ram-Rom 
te lo ofrece 
por 9.900 
ptas. 
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Archivados y 
protegidos 
Para los usuarios de los 
Amstrad PCW y CPC con 
unidad de disco, aquí os 
presentamos este práctico 
archivador de disquettes de tres 
pulgadas con capacidad para 
más de 30 discos. 
Está fabricado en plástico 
antichoque de color blanco con 
la tapa superior de plástico 
ahumado transparente y cuenta 
además con cerradura por llave 
para evitar tentaciones de 
hacerse con los discos de su 
interior a los extraños. 
Se vende al precio de 4.200 
ptas. en Chips & Tips, Paseo de 
la Castellana, 126. 2804-6 
Madrid; te1.: (91) 262 23 02. 
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Para cortes, 
tiritas 


Si hdY algo realmente molesto 
entre los que trdbaJdmos con 
ordenadores, debe ser por 
undnuTliddd un corte del flUido 
dé( trico Pero no sólo Id 
dusemia de energía eléctrica 
puede hdlernos daño, Sll10 
tallbién otros problemas 
eléctricos son el motivo 
pnn( ipal de Ids dvel íd
 de los 
ordenadores como Ids subidas 
bruscas de ten
lón, 
interferencias de ruido, cte. que 
Ikvdn consigu devddas faltura
 
de repardción y la pérdidd de la 
in/cm 1ación y tiempo que son 
todavía más valiosos. 
Pard proteger este fluido 
vital, aquí tenéis e! jetrurn, algo 
má5que una fuente de 
alinentaClón de seguridad para 
tu Amstrad PCW, CPC o PC, 
ya que cuenta además dt' un 
estab¡li¿ddor de corriente que 
¡ ecorta los picus de tensiÓn e 
interferencias 
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Su mdYor ventdja respecto a 
las demás fuenlt's de 
alu tentación estriba en sus 
reducidds dimensiones (apenas 
75 nm de altura) que le 
permitirán dlojdrse bajo el 
nisno monitor de! ordenador 
ahorrdndo no solamente ' 
espdcio, sino adenás cableados, 
Avisa acústicamente de la 
ausencia del fluido eléctrico y 
permite una alimentación 
interrumpida durante ocho 
minutos a pleno funcionamiento 
o bien hasta veinte y a media 
carga, tiempo en el cual da 
lugar a la realización de una 
copia del trabajo realizado para 
continuado cuando se restablece 
la energía eléctrica, 
Con este tipo de fuentes de 
alimentación se puede trabajar 
tranquilamente, sin miedo a los 
temidos cortes de fluido que nos 
hacían perder información, 
Su precio es de 99,680 ptas. 
y lo podéis encontrar en Sprind, 
López de Hoyos, 27. 28006 
Madrid; tel.: (91) 411 1704, 
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Por: Alberto Suñer 
Continuaremos hoy profundizando en el tema del espacio tridimensional, en el cual ya 
veíamos la semana anterior cómo se podían unir dos puntos mediante una recta. 


En el p""nte artículo vmmo, cómo" 
pueden formar figuras geométricas en tres 
dimensiones, así como la forma en que 
deberemos ordenar los datos correspondientes a la 
figura que deseemos dibujar. Para ello lo primero 
que deberemos hacer, según indicábamos ya la 
semana anterior, será construir nuestros propios 
ejes de coordenadas, a partir de un origen 
establecido, en una hoja de papel o un folio. 
Seguidamente deberemos dibujar en esa misma 
hoja, la figura que deseemos representar más 
tarde en pantalla. Estas operaciones mencionadas 
anteriormente, pueden realizarse en la forma 
indicada, o bien dibujar en primer lugar la 
figura, y más tarde formar nuestro eje de 
coordenadas a partir del centro de la misma. 
Estos dos primeros pasos son muy importantes, 
por lo que conviene que se vea muy claro cada 
uno de los puntos y rectas que forman nuestra 
figura, ya que más tarde deberemos dar valores a 
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cada uno de ellos. Como creo que un ejemplo 
vale más que mil palabras, en la figura 1 
podemos ver un dibujo que representa un cubo 
en tres dimensiones, teniendo en cuenta que está 
centrado sobre un origen de coordenadas 


Figure 1 
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establecido anteriormente. 
Una vez realizada la figura, deberemos pasar a 
dar valores a cada uno de los puntos que forman 
los vértices de la misma, empezando por uno 
cualquiera de ellos hasta llegar al último, 
teniendo en cuenta y siempre que se pueda, que 
dos puntos correlativos deben estar unidos por 
una recta, para facilitar otras operaciones que se 
deberán realizar más tarde. En el ejemplo del 
cubo citado anteriormente podemos ver el 
número correspondiente a cada uno de los 
puntos, en la misma figura 1. Una vez definidos 
todos los puntos que forman las aristas de la 
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Gráficos por 


ORDENADOR 


figura, deberemos proceder a la numeración de 
las rectas de la misma. Esta operación deberá 
realizarse según unas normas establecidas, que 
citamos a continuación. 
- Se empezarán a numerar las rectas, 
empezando siempre por el primer punto, hasta 
llegar al último. Teniendo en cuenta que 
deberemos seguir siempre una misma línea (es 
decir sin dar saltos ). 
- Una vez se haya llegado al último punto, SI 
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aún queda alguna recta por numerar, volveremos 
al primer punto y realizaremos la misma 
operación anterior. 
- En caso de que dicho punto no tuviera 
otros puntos contiguos, entonces empezaríamos a 
numerar por el segundo punto hasta llegar al 
final. 
Esta operación deberá realizarse con cada 
uno de los puntos hasta que no quede ninguna 
recta por numerar, 
En la figura 1 podemos observar la 
numeración correspondiente a cada una de las 
rectas que forman el cubo. Más adelante veremos 
la numeración de puntos y rectas correspondiente 
a otras figuras, de forma que no exista ningún 
problema en el momento de proceder a crear 
nuestros propios dibujos. Una vez realizadas estas 
operaciones, pasaremos a definir cada uno de los 
puntos de la figura, a través de sus tres 
coordenadas, eligiendo para ello una unidad. En 
el caso del cubo, se ha elegido como unidad a la 
mitad de una arista, puesto que es la forma más 
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Para construir una figura 
tridimensional, primero hay que 
diseñar un eje de coordenadas 
partiendo de un origen establecido 


sencilla de definir sus coordenadas. En cada caso, 
pues, deberemos elegir la unidad que más nos 
facilite nuestra tarea. Para realizar esta tarea 
deberemos además elegir nuestro propio convenio 
de signos, que en el caso de nuestro ejemplo es el 
siguiente: 
Eje X: todos los puntos que se encuentren a la 
derecha del origen serán positivos, y los que 
estén a la izquierda negativos. 
Eje Y: serán positivos los puntos que se 
encuentren por encima del origen de 



lgurCl :2 


+V 


Eje )( 


Eje Z 


Eje V 


coordenadas, y negativos los que estén por debajo 
del mismo. 
Eje Z: los punto,s que estén por delante del eje 
serán positivos, y los que estén por detrás 
negativos. 
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Una vez establecidos los convenios de signos, 
definiremos cada uno de los puntos de nuestra 
figura mediante las correspondientes coordenadas. 
En el caso del ejemplo del cubo, en la figura 3 
podemos ver cuáles son las coordenadas de cada 
uno de los puntos. A partir de este momento 
únicamente nos resta ordenar adecuadamente 
todo este cúmulo de datos, lo cual se realiza 
mediante dos matrices, una que contiene el valor 
de cada uno de los puntos, y otra conteniendo los 
pares de puntos que unen las rectas que forman 
la figura. Aunque en nuestro caso esta tarea la 


Matriz de puntos Matriz de 1 
X Y Z P. Partida P. Llegada 
Punto 1 I Recta 1 I 
1 1 1 I 
2 1 1 -1 2 
3 -1 1 -1 ) I 4 
I 
4 -1 1 1 4 4 
5 -1 -1 1 I 6 
6 1 -11 11 6 6 
7 1 1 -1 1 -11 7 7 8 
8 -1 -1 -1 8 1 4 
9 6 
10 7 
11 8 
12 8 


realizará el programa que aparece al final del 
artículo, expondremos a modo de curiosidad y 
para el que esté interesado en ello, dichas 
matrices. 
Como ya hemos dicho anteriormente, no 
deberemos preocuparnos para nada de estas dos 
matrices, ya que el programa se encarga de este 
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trabajo. Para ello, cuando ejecutemos el 
programa, deberemos ir respondiendo a cada una 
de las preguntas que se nos hagan; así pues, en 
primer lugar se nos pedirá el número de puntos y 
línea que forman la figura, en el caso del cubo 
éstas serían 8 y 12 respectivamente. A 
continuación deberemos introducir las 
coordenadas de cada uno de los puntos, y, por 
último, deberemos indicar cuáles son los puntos 
de partida y llegada de cada una de las rectas. 
Una vez introducidos todos los datos, podremos 
aumentar o disminuir el tamaño de la figura con 
las teclas de cursor «F5» y «F2». Cuando se 
obtenga la figura deseada, deberemos pulsar 
"Return", con lo cual se salvarán en disco o en 


10 "OOE 2:FACT=SOO: INC=B 
20 01" P(3,20) ,U2,20) 
30 INPUT "N, PUNTOS: ',PUN 
(O INPUT 'N LINEAS: ", LIN 
SO KlJOE 2 
60 FOR N= 1 TO PUN 
70 LOCATE 1,1:PRINT 'PUNTO'iN 
BO LOCATE l,S:INPUT 'X= ',P(l,N) 
90 LOCATE 10,5: INPUT 'V= ",m,N) 
100 LOCATE 20,S: INPUT 'Z= . ,P(3,N) 
110 CLS:NEXT N 
120 FOR N=I TO UN 
130 PRINT "LA LINEA' i Ni 'UNE LOS PUN 
TOS:' 
140 LOCATE 1, S: INPUT 'PUNTO OE PART 
lOA: ',U l,N) 
1 SO LOCA TE 1, 7: INPUT 'PUNTO OE LLE6 
AnA: ",U2,N) 
160 CLS:NEXT N 
170 GOSUB 180: GOTO 290 
180 "OOE 1:0RIGIN 300,200 
190 FOR N=I TO UN 
200 PUI=Ul,N):PU2=U2,N) 
210 PX1=P( 1, PUl) : PVI=P(2, PUl) :PZI=P 
(3.PUlI 
220 PX2=P( 1, PU2) : PV2=P( 2. PU2) : PZ2=P 
(3,PU2) 
230 PZI=PZI+INC:PZ2=PZ2+INC 
240 XF!=(PX1IPZ1I*FACT:VF1=(PYl/PZI 
)tFACT 
250 XF2=( PX2/PZ2ItFACT: VF2=( PV2/PZ2 
)tFACT 
260 "O\lE XF!, YF1: ORAII XF2, VF2 
270 NEn N 
2BO RETURN 
290 IF INKEV(W=O THEN FACT=FACT-l 
0:60SUB 180 
300 IF INKm 12)=0 THEN FACT=FACT+1 
O:GOSUB 180 
310 IF INKm 18)=0 THEN GOTO 330 
320 60TO 290 
330 CLEAR INPUT:"OOE 1: INPUT 'NOI1BR 
E FIGURA"iN$ 
3(0 OPENOUT N$ 
350 WRITE '9,FACT,PUN,LIN 
360 FOR N= 1 TO PUN 
370 WRITE '9,P( l,N) ,m.N) ,P(3,N) 
380 NEXT N 
390 FOR N=1 TO LIN 
(00 WRITE '9,U l,NI,U2,N) 
410 NEXT N 
(20 CLOSEOUT 
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La ordenación de los datos 
convencionales que le hemos dado a 
cada uno de los puntos y rectas se 
realiza mediante dos matrices 


cinta los datos correspondientes a dicha figura. 
Por último, y para que no pueda quedar ninguna 
duda de la forma en que se deben obtener los datos 
para cada uno de los dibujos creados, en la figura 
4 podemos ver los correspondientes a una pirámide, 
los cuales podemos introducidos también en el 
programa que aparece al final del artículo. 
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Lucha a muerte en los dominios de Drax 


Hemos visto todo tipo de aventuras llevadas al ordenador 
sobre abnegados y nobles guerreros. 7Odas, por lo genera4 
,.. ,
 tienen algo en común. La finalidad de estos personajes, 
casi siempre medievales, era salvar a la princesa de turna 
El juego que traemos hc!y a estas Páginas no difiere en 
esto último, pero, por la éPoca en que se desarrolla, 
aquellos tiempos en que la Tierra estaba poblada de 
bárbaros, es mucho más crudo. Cuando terminemos 
de jugar con Barbarian tal vez veamos escurrir; por 
debajo del monitor del ordenador; un fluido denso 
y VlSCOSO. 
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Hace muchos siglos existía un reino, Leo- 
nia, cuyo rey tenía una hija envidia de las diosas 
por su hermosura y candor. El rey Kull cuidaba 
a Mariana, así se llamaba su hija, como al tesoro 
más preciado por él. Llegaría un día en el que 
debería entregada a un príncipe de algún reino 
vecino para crear una alianza de Estados, pero 
esto tardaría en llegar debido a su juventud y, 
hasta ese momento, Kull se desvivía por su hija. 
U n oscuro día, la tragedia se cernió sobre el 
rey. Drax, un brujo que vivía en las tierras de 
éste, raptó, mediante sus malas artes, a la hija de 
Kull. El dolor sobrecogió el corazón de éste, e in- 
mediatamente dispuso un bando: El guerrero que 
consiguiera liberar a su hija, decía el rey, sería 
colmado de oro y nombrado general de todos sus 
ejércitos. 
Evidentemente, acudieron a esta llamada un 
incontable número de guerreros, pero el poder de 
las sanguinarias ordas de Drax era grande, y nin- 
guno triunfó en la misión. 
Después de algún tiempo, se oyó decir que se 
acercaba al reino un poderoso guerrero bárbaro 
del norte con la intención de conseguir fama y 
fortuna. Sus ha
añas le precedían, por lo que 
Kull reavivó sus esperanzas. Tal vez este hombre 
pudiera liberar a su hija. 
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Nunlll nos 611 pllrel;do que un juego 
bllslldo en 111 v;olenl;1I sell lo mejor pllrll 
pllsllr el rlllo, pero desde luego en 
Bllrbllr;lIn éslll eslá jusl;l;tlldll. 


Cuando Akon, así se llamaba el guerrero, se 
acercó a las tierras de Drax, comenzaron a cru- 
zarse en su camino los sicario s de éste. Eran du- 
ros y sanguinarios, capaces de cometer las más 
desalmadas fecharías. Esto no arredró a Akon, 
quien, blandiendo su impresionante espada, dio 
cuenta de los siete asesinos de Drax que encontró 
en los bosques próximos al castillo de éste. Esto 
no fue nada fácil, ya que cada contrincante era 
más experto que el anterior. A medida que se en- 
frentaba con otro guerrero, éste parecía que veía 
venir mejor sus golpes y, por lo tanto, los esqui- 
vaba con mayor facilidad. No obstante, tras cor- 
tar alguna cabeza que otra, Akon pudo continuar 
hacia el cubil del raptor de Mariana. 
Una vez dentro del castillo de Drax, eliminó a 
los soldados que se encontraban de patrulla, esto 
fue realmente sencillo para Akon, y penetró en la 
sala principal donde se encontraba el siniestro 
brujo. Allí empezó, una vez más, otra serie de 
sangrientos enfrentamientos. Pero si los anterio- 
res, los celebrados en el bosque, fueron violentos 
y dejaron lleno de heridas a Akon, éstos no pare- 
cía que fueran a ser menos. Los siete guardias 
personales de Drax eran más peligrosos que los 
matones que Akon tuvo que eliminar en el bos- 
que. El último de ellos, un guerrero blanco vesti- 
do totalmente de negro, fue el más duro de to- 
dos. En este combate el cuerpo de Akon quedó 
bañado en sangre. La debilidad cubría sus ojos 
cuando, haciendo un sobrehumano acopio de 
fuerzas, levantó su enorme y pesada espada para 
asestar un corte volante al cuello. La cabeza del 
asesino cayó al suelo, mientras de su cuello salía 
un chorro de sangre. Tras este último combate, o 
eso pensaba él, apareció Drax. El brujo, con una 
siniestra sonrisa, extendió sus manos y lanzó 
unos pérfido s conjuros. Akon se lanzó al suelo y, 
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SALTO. 
Sólo así nos libraremos cuando un 
enemigo ruede hacia nosotros. 
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CORTE AL CUELLO. 
Aunque en esta ocasión hemos falla- 
do. este golpe es sumamente efectivo. 
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PROTEGER EL CUERPO. 
Si no hacemos esto con rapidez y ha- 
bilidad nos veremos mal más de una 
vez. 


(ii
 


rodando, se abalanzó sobre Drax asestándole un 
fuerte mandoble. El viejo brujo murió casi ins- 
tantáneamente. Después de esto, Mariana salió 
corriendo a felicitar a su salvador, y se dispuso 
con éste a regresar al castillo de su padre. La fe- 
licidad quedaría para estos últimos. Para Akom 
serían honor, oro "y fama. 
Parece, según se puede leer, que no hay mu- 
cho que distinga este juego de otros de tema si- 
milar. Nada más lejos de la realidad. Si bien ha- 
bíamos visto juegos en los que los espadazos, gol- 
pes y demás acciones eran reales, Barbarian es, 
además, crudo. Baste decir que por cada golpe de 
espada asestado veremos salir la sangre de la he- 
rida. El chorro en algunos casos. Realismo al 
máximo. 
Aclarado este pumo, nos centraremos en des- 


El tOlO' tle la tam;sela es lo ún;to que, 
junIo al tolo, tle la p;e/, tI;Ie,ent;a a un 
guerre,o tle 01'0. 
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CORTE VOLANTE AL CUELLO 
Éste es el inicio de la rotunda serie ... 
de imágenes que podréis ver más 
adelante. 
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CABEZAZO. 
Este tipo de acciones no es muy or- 
todoxo que digamos. pero en la guerra 
y en el amor todo vale. 
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cribir la elabo
ación del juego. Para ello comen- 
zaríamos por recordar que Barbarian es de la ca- 
sa Palace Software, cosa ésta que generalmente 
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MOVIMIENTO ADELANTE 
Y ATRAs. 
 
Cuidado cuando nos movamos ... . ..... 
así. Pueden pillamos despreve- 
nidos. 
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CORTE AL CUERPO. 
Si no se aparta nuestro contrario le 
hacemos una brusca operación de ri- 
ñón. 


0- 



.. ... JUEGOS 
... , .' J . , J l' .. . 
ooo
o 10 00100 

 ..........' ...-' 
:., Es luriOSO el desdén Ion el que el 
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ea, pero consigue derribar e inmovi- J '" 
lizar al oponente. ,,, 
conlleva productos de calidad. En lo referente al 
nivel gráfico se puede afirmar que es bastante 
bueno en lo que concierne al tamaño de los pro- 
tagonistas, y a la gama de colores utilizados para 
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GOLPE A LA CABEZA. 


Parece que los dos espadachines se 
van a producir un buen dolor de ca- 
beza, ¿eh? 
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ENCOGER CUERPO. 


Ni que decir tiene que este movi- 
miento puede conseguir que nuestra 
cabeza siga en su sitio. 
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reflejar el escenario de-la aventura. La definición 
no es sorpr
ndente, pero tampoco está mal conse- 
guida. El sonido sí que es impresionante. No se 
podría pedir mayor perfección en la reproducción 
del choque de espadas. 
Para el final, y apartado del resto, hemos deja- 
do el comentario acerca del movimiento. Lo he- 
mos hecho así, porque de nada serviría lo ante- 
riormente mencionado acerca del desarrollo del 
juego, si todo esto no estuviera acompañado de 
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PATADA. 


Este golpe siempre hace daño. En al- 
gunas zonas del cuerpo es devasta- 
dor. 
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CORTE DE PIERNA. 
Para no terminar el combate cojos fi- 
jaro s en la defensa del otro espada- 
chín. 
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PROTEGER LA CABEZA. 


RED DE LA MUERTE. 


Prestar atención a ese movimiento. 
La cabeza va en ello. 


Este movimiento no es otra cosa que 
un molinete sumamente mortífero. 


un movimiento capaz de añadir a la acción la ra- 
pidez necesaria. El movimiento en Barbarian no 
sólo es rápido, sino que además es natural. 
Todo lo anterionnente mencionado fonna un 
juego de una calidad notable, y que no duda
os 
en afinnar que causará sensación entre los 
(
uegomaníacos» . 
Antes de terminar nos gustaría dar un consejo 
acerca de un punto, y llamar la atención sobre 
otro. El consejo es el siguiente: para disfrutar 
realmente de la acción de Barbarian interesa ju- 
gado con joystick. 


Cargadores para Barbarian 


Más de uno habrá pensado. que los carga- 
dores de Barbarian le concederían la posibili- 
dad de «cargarse». y nunca mejor dicho. a los 
siete contrincantes con los que cuenta cada 
una de las dos partes de este juego. Se equi- 
voca. En las batallas las victorias se logran con 
sangre. sudor y lágrimas. por lo que los carga- 
dores sólo permiten elegir dos cosas: el gue- 
rrero con el que queramos pelear. para ello sólo 
deberemos dar un número de cero a siete. y si 
queremos volver a pelear. o no. con el mismo 
guerrero cuando nos maten. Para esto sólo de- 
beremos pulsar «s» o «n». 


CUllndo se ¡ue,1I ,o. /11 .",¡ón dos 
I!.ersonlls 'un"o.1I un re/o¡ de '¡empe. 
e",,'"mos 'o. un minu'o, mlÍs o menos, 
""", d.,¡dir el ,ombll'e. 


CARGADOR 1. a PARTE 


!O 


(38,' ");CHR$(7);:GOTG 110 
120 iF mi$="S. THEN POKE &7E4,&EO:P 
OKE &7E-5,&C7 
130 POKE &7E2,en 
140 CALL &40 
150 CALL 2000 
160 DATA 18,F,AF,21,24,6F,6,S,77,23 
,10,FC,3E,C9,32,21,6C,3E,O,32,2S,6F 
,C3,J:'2,6A 


Pc,kes BARBARIAN 1 (
inta) 


90 LOCATE 3,10:PRINT "Empezar por e 
1 mismo que te mate? ";:WHILE mi$= 
"":mi$=UPPER$(INKEV$);WENO:PRINT mi 
$ 
100 IF mi$="S" THEN PDrE 2000,O:POK 
E 2001, O 
110 LOCA TE 3.1S:INPUT "Por que enem 
i9 0 empiezas (0-7) ";en:IF en{O OR 
en>7 THEN LOCATE l,15:PRINT STRING$ 


Pedro M. Cuen
a. 


"ni 
i..:
" 


30 FGR X=2000 TD &7EB:REAO A$:PDKE 
X,VALi"&"+A$):NEXT 


40 ME
DRY 8191:LOAD n! 


SO POKE &2014,201 
60 CALL &2000 


70 PD
E &A:3
201 
E:(j MOOE 1 


CARGADOR 2. a PARTE 


(3B," ");CHR$(7);:GOTO 110 
120 IF 
i$="S" THEN POKE &7E4,&ED:P 
OKE &7ES,ftC7 
130 POKE &7E2,en 
140 CAlL ft40 
150 CALL 2000 
160 DATA lB,F,AF,21,EE,6F,6.5,77.23 
,10,FC,3E,C9, 32,BC,6B,3E,O,32.EF,6 
F,C3,F2,6A 


10 . Pokes BAR8ARIAN Ir (cinta) 
LV Pedro M, Cuenca. 
30 FOR X=2000 Tú &7EB:READ A$:POKE 
X,VAL("&"+A$i:NEXT 
40 MENORY 8191:lDAD "' 
50 POKE &2014,201 
60 CAlL &2000 
70 POE M:3,201 
80 MOOE 1 


90 LOCA TE 3,10:PRINT "Empezar por e 
1 mismo que te mate? "¡:WHILE mi$= 
U":mi$=UPPER$(INKEV$):WEND:PRINT mi 
$ 
100 IJ:' mi$="S" THEN POKE 2000,0:POK 
E 2001,0 
110 LOCA TE 3,15:INPUT "Por que enem 
igo empiezas (0-7) "¡en:IF en{O OR 
en}7 THEN LOCATE l,15:PRINT STRING$ 
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¡¡Vaya bicho más desagradable!! 
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Drax y sus hechizos. Cuidado 
con ellos. 
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II 1 
La princesa. No es la de la carátula, 
¿ verdad? 


Escalofriante, ¿no es cierto? 


':sta es la secuencia de imágenes más impresionante 
que podremos ver en Barbarian. Ya hemos mencio- 
nado en el texto que el movimiento está conseguido 
al 100 por 100. Tampoco pensamos que lo esté me- 
nos el estudio que han hecho los programadores acer- 
ca de los golpes con espada. Se nos hiela la sangre 
en las venas al ver esto. No pensamos que le ocurra 
lo mismo al guerrero de la camiseta azul. 
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Vamos a ofreceros algunas ideas que os podrán resultar interesantes, bastante 
generales. eso sí. puesto que como ya os decíamos en el texto, una vez que se ha 
vencido un guerrero el siguiente es mucho más fiero y astuto, por lo que describir 
particularidades sería largo y tedioso. No debemos 
olvidar que son catorce contrincantes en total. 
Una de las primeras cosas que hacen casi todos los oponentes al principio del 
combate es rodar Con la intención de tirarnos al suelo. Hay que estar preparados y 
lanzarnos antes que ellos o esquivarlos. En el suelo estamos más a su merced. 
Otra cosa que suelen hacer con bastante frecuencia es intentar arrinconarnos y 
así impedir movernos con libertad. Una solución para evitar esto es rodar y 
tirarlos al suelo. Así conseguiremos pararlos. Otra alternativa, mucho más dura, 
es intentar entretenerlos hasta conseguir efectuar un corte volante al cuello y 
cortarles la cabeza. Esto requiere bastante práctica. 
Cuando venzamos al séptimo contrincante del castillo aparecerá el mago 
lanzándonos conjuros. Mientras estemos en la otra esquina de la sala no nos 
alcanzarán, y por tanto no nos afectarán, pero si llegan a tocarnos varias 
veces nos producirán una mlrerte instantánea. Para terminar con él lo más -It 
efectivo es un ataque rápido y directo. Mariana nos espera. 
No obstante todo lo dicho, también es interesante observar las 
evoluciones de nuestros adversarios. Podemos aprender mucho. ' ,. 


La llamada de atención, una vacuna más que 
otra cosa, es acerca de la escultural Mariana que 
sale en la carátula del juego. Que nadie espere 
ver cuando llegue al final de éste una princesa 
tan exuberante. Nuestros modestos Amstrad no 
son sombreros de prestidigitador 
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de Alsi Comercial 
P.V.P.: 29.120 ptas. 
Alsicont es un programa 
creado con la finalidad de 
llevar la contabilidad de 
cualquier empresa exigente. 
El programa consta de 
cuatro niveles (cuentas, 
subcuentas y dos niveles más 
de estas últimas) en diario, 
mayor y balance de sumas y 
saldos, con lo cual permite 
perfectamente llevar varias 
contabilidades en un solo 
disco o la contabilidad de 
una empresa dividida en 
departamentos. 


A. Cuentas principales: 
La cantidad de cuentas 
que se pueden utilizar en este 
programa es ilimitada, 
pudiéndose crear cuantas 
sean necesanas. 
Automáticamente, las 
cuentas pasarán a formar 
parte del Plan de Cuentas, 
Balances de Sumas y Saldos 
y Balance de Situación, 
pudiendo ser utilizadas en 
todos los aspectos, incluso 
para sacar extractos de 
cuenta. 
Las cuentas constan de tres 
dígitos. En su creación es 
conveniente ajustarse al Plan 
General de Contabilidad 
N acional en las cuentas de 
balance y absolutamente 
imprescindible en las cuentas 
de regularización con objeto 
de poder aprovechar las 
facilidades de activo y pasivo, 
en donde aparecen agrupadas 
por grupos de acuerdo con el 
mIsmo. 


B. Subcuentas: 
Todas las cuentas 
principales pueden tener 
subcuentas. El número 
máximo de éstas es de 999 y 
es necesano crear, como 
mínimo, una subcuenta para 
cada cuenta, ya que el diario 
trabaja con subcuentas. 
En la creación de Plan de 
Cuentas, se establece el 
número, nombre de la cuenta 
y saldo inicial de la misma. 
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En los extractos de cuenta 
aparecen, por lo tanto, saldo 
inicial, asientos de diario con 
cargo a esta cuenta, suma del 
debe, suma del haber, saldo 
final y saldo acumulado. 


C. Balances: 
En el balance de sumas y 
saldos aparece el número de 
cuenta o subcuenta, nombre 
de la misma, debe 
acumulado, haber acumulado 
y saldo deudor! acreedor de 
cada una de las cuentas, así 
como el total del balance. 
En los balances de 
situación aparecen las 
correspondientes cuentas 
agrupadas en el grupo a que 
corresponden de acuerdo con 
el Plan Contable, así como 
los totales de cada grupo y el 
total de activo/pasivo. 


D. Diario de movimientos: 
Al efectuar los asientos en 
el diario de movimientos, 
hay que introducir los 
siguientes datos: fecha, 
cuenta, contrapartida, 
concepto, importe, siendo 
estos mismos asientos de 
diario los que aparecen en 
los extractos de cuenta. 
La cantidad de asientos del 
diario está limitada por la 
capacidad de almacenamiento 
del diskette a utilizar. En 
diskette de 1.000 k caben 
30.000 asientos 
aproximadamente. 


E. Estado de cuentas: 
Es posible extraer una 
relación de cualquier cuenta 
desglosada con sus 
correspondientes subcuentas, 


apareciendo el total de cada 
subcuenta y la suma de todas 
ellas o cuenta principal. 


F, Regularización 
del periodo contable: 
Al finalizar el ejercicio 
económico, es posible 
efectuar la regularización del 
periodo contable, mediante la 
cual los saldos de las cuentas 
de gastos e ingresos son 
absorbidos por la cuenta de 
explotación, cuyo saldo es 
absorbido a su vez por la 
cuenta de pérdidas y 
gananCias. 
U na vez cargado el 
programa, aparece un menú 
con las siguientes opciones: 
1. Preparar contabilidad: 
La presente opción permite 
al usuario dar nombre a su 

ontabilidad y preparar la 
Impresora. 


2, Reponer saldos iniciales: 
Permite la introducción de 
los saldos iniciales de las 
subcuentas que componen el 
Plan, evitando así la 
realización del asiento de 
apertura. 


3. Plan de cuentas: 
El programa se suministra 
con un Plan de Cuentas 
abierto. Este Plan no implica 
la obligatoria utilización por 
parte del usuario, ya que éste 
confeccionará su propio Plan 
de Cuentas mediante las 
opciones "borrar cuentas» y 
«agregar cuentas». 


4. Diario de movimientos: 
Al pulsar esta opción, 
aparece, a su vez, un 
submenú con las siguientes 
opCiones: 
4.1 Introducir asientos. 
4.2 Imprimir diario 
acumulado. 
4.3 Borrar asientos. 
4.4 Apunte mensual de 
diario. 
Esta última opción nos 
permite sacar un asiento 
múltiple con los saldos de las 
cuentas que han intervenido 
a lo largo de un determinado 
mes, permitiendo, asimismo, 



el extracto de los doce meses, 
uno por uno. 
Esta opción es de suma 
utilidad para todos aquellos 
usuarios que además de 
llevar la contabilidad con el 
presente programa poseen 
libros oficiales de 
contabilidad. 
5. Menú de totales: 
Las subopciones de que 
consta la presente opción, 
son las siguientes: 
- Activo/pasivo. 
- Estado de cuentas y 
subcuentas. 
- Balances de sumas y 
saldos. 
- Regularización, 
apertura y Cierre. 
Extractos de cuentas. 
Mayor de cuentas. 
Extracto de subcuentas. 
Actualización de 
asientos. 
Todas las opciones tienen 

a posibilidad de pantalla o 
Impresora. 


RPA VÍDEO CLUB 


de RP A Systems 
P,V,P,: 19.600 ptas. 
La presente aplicación está 
dirigida para la gestión de 
videoclubs. 
Entre sus características 
generales podemos destacar 
las siguientes posibilidades, 
que hace de Rpa Vídeo 
Club un programa completo 
y que se adecúa a las 
necesidades a las que va 
dirigido 
- C.>paciddd para más de 
1.600 se :ios o <¡u s 


ALSICONT 
Alsi Comercial, S. A. 
Nicolás Usera, 10 
Tel. (91) 45! 43 39 
28026 Madrzd 


RPA VÍDEO CLUB 
RPA System s Inc. 
Arimón, 66 
Tel. (93) 41838 98 
08022 Barcelona 
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respectivos datos y películas 
ilimitadas. 
- Opera con los tres 
sistemas de vídeo del 
mercado (Beta, VHS y 2000) 
de manera independiente. 
- Posibilidad de 
localización inmediata de 
cualquier video filme o socio. 
- Función de semicaja, 
dando en todo momento el 
importe que debe abonar el 
socio por las películas que 
alquila, según precios 
estipulados previamente y 
siempre modificables. 
Además, el programa puede 
recordar deudas que los 
socios tengan contraídas con 
el establecimiento. 
- Tratamiento 
diferenciado para dos tipos 
de socios, así como dos tipos 
de bonos o abonos con un 
máximo de 127 películas por 
bono. 
- Gestión rápida de la 
entrada-salida de las 
películas. 
- Funcionamiento 
mediante menús y submenús, 
no teniendo que recordar 
extraños comandos. 
- Seguridad total de los 
datos ante cortes del fluido 
eléctrico o desconexiones 
involuntarias del ordenador. 
U na vez que el programa 
ha sido cargado, aparecerá 
en la pantalla el menú 
principal que consta de las 
siguientes opciones: 
1. Información de socios: 
Mediante la presente 
opción, no sólo es posible 
introducir los datos 
correspondientes a un nuevo 
socio, sino también acceder a 
información respecto a un 


socio determinado ya 
registrado, así como 
actualizar sus datos o darle 
de baja. 
Los datos a incluir en el 
fichero de socio, 
habitualmente son: número, 
nombre, 'domicilio, teléfono, 
sistema de vídeo, tipo de 
socio, observaciones, número 
de tarjeta y DNI. 
2. Gestión de alquileres: 
La aplicación está dirigida 
a facilitar el trabajo diario 
del videoclub. 
Esta operación tan sólo 
requiere anotar las entradas 
y salidas de películas con sus 
respectivas fechas, bonos y 
función semicaja; de tal 
modo que su control resulte 
sencillo y cómodo. 
3. Información de 
películas: 
Sólo si el programa es 
cómodo de manejo, como es 
el caso de Rpa Vídeo Club, 
es posible obtener una 
información completa y 
actualizada sobre las películas 
disponibles en el videoclub. 
Para ello se requiere 
introducir los nuevos 
videofilmes, anular una 
película que ya no está 
disponible en el 
establecimiento y corregir los 
datos de películas ya 
introducidas. 
El modo de acceder a tal 
información puede realizarse 
desde diversos aspectos de la 
película: número, nombre, 
sistema, fecha de llegada al 
videoclub, número de 
alquileres desde que llegó, 
últimos socios que la han 
alquilado, así como si aún 
está alquilada y socio que la 
posee en esos momentos. 
4. Fin de gestión: 
Esta opción en realidad es 
un sistema de seguridad con 
que cuenta la aplicación y 
evita la pérdida de datos 
introducidos en la jornada de 
trabajo en el caso que, 
accidentalmente o por un 
corte en el suministro 
eléctrico, se desconecte la 
aplicación. 
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Recuerdos de 
la Alhamb 


Por Fernando Pajas Sanz 


100 KODE l:BORDER O'INK l,26:1NK 0,0, 
lNK 2,2: lWK 3,6 
110 LOCATE 5,7:PEN l:PRlwr'RECUERDOS 
DE LA ALHAIIBRA" 
120 LOCATE ll, 9, PRINT" ( Andante )" 
130 LOCATE 8,ll:PRINT"F.TARREGA" 
140 LOCATE 2,20:PEN 2:PRINT"PROGRAI!AD 
O POR FERNANDO PAJAS SANZ" 
150'LOCATE 2,24:PEN 3,PRINT"CONCURSO 
I!USICAL 'AKSTRAD SEMANAL''',PEN 1 
160 T=12:'** DURACION (FUSA) ** 
170 V=13:'*** VOLUMEN *** 
180 ENT -l,4,l,l,4,-l,l:El=1:-** ENVO 
LVENTE (CANAL 1) **** TONO ** 
190 ENV 2. 16,-1.20:E2=2,'** ENVOLVENT 
E (CANAL 2) ** 
200 ENV 4,l,O,t*3,15.-1,t*2:E4=4:'** 
ENVOLVENTE (CANAL 4) ** 
210 KEY 1l."SOUND ",KEY O,"RUN"+CHR$( 
13) 
220 SOUND 
230 SOUND 
240 GOSUB 
250 SOUND 
260 GOSUB 
270 SOUND 
250 GOSUE 
290 GOSUB 
300 GOSUB 
310 GOSUE 
320 SOUND 
330 SOUND 
340 GOSUB 
350 SOUND 
360 GOSUB 
370 GOSUB 
380 GOSUB 
390 GOSUB 
400 GO.sU!?- 
410 SOUND 
420 SOUN9 
430 OOSUB 
440 SOUND 
450 GOSeB 
460 "JOSUB 
470 SOUND 
. t*3. v, e2 
480 GD.SUr. 14r''' 
490 SOUND 2.0,t*3,O 
500 SQUND l. lr-,t*12,v, ,el 
510 GOSUB 1540 
520 GOSUB ::'440 
530 SOUND 1.179.


,v..e] 
540 GOSUB l400 
550 SQUND 1.159.tt36.
. .el 
560 GOSUB 1540 
570 SOUND 2.0,t*3.0 
580 GOSUE 1420 
590 GOSUB 1420 
600 8QUND 2,319.t*3,v,e2 
610 GQSUB 1540 
620 SOUND 2,O.t*3.0 
630 GOSUB 1420 
640 GOSUE 1420 
650 SOUND 2,319,+*3,v,e2 
660 SOUND 1.
19.t*12.v..eJ 
670 SOUND 2,O,t*3,O 
680 GOSUB 1560 
690 GOSUB 1460 
700 GOSUB 1450 
710 SOUND 1, 127.t:t6,v, ,el 
720 GOSUB 1500 
730 SOUND l,142,+:t12,v, ,el 
740 GOSUB 1'560 
750 GOSUB 1580 
760 SOUND l,127,t*6,v, ,el 
770 GOSUB 1600 
780 SOUND l,142,t.ffi,v, ,el 
790 GOSUB 1620 


2.0,T*3,V,E2:GOSUB 1520 
l,190,T*12,V, ,El 
1320 
1.213.T*6,V, ,El. GOSUB 1340 
1360 
1,239,T*12.V,.El 
1380 
1520 
1340 
1360 
1,213, T*6, V., El 
1, 190,T:t30,V, ,El 
1320 
l,179,"t't6.v. .el 
1'520 
1320 
1360 
1'520 
1320 


2,379,T*3.V,E2 
l,159,
*12,v"el 
1400 
2,O,t'*3,0 
1540 
1420 
1.179,
*6,v, ,el.SOUND 


2.319 
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800 GOSUB 1640 
810 SOUND 1,150,t
30,v, ,el 


830 SOUND 2,253,t*3,v,e2:S0UND 2,O,
* 
3,0 
840 
850 
860 
870 
3,0 
880 
890 
900 
910 
920 
930 
3,0 
940 SOUND l,159,t*12,v"el 
950 SOUND 2,284,t*3,v,e2,SOUND 2.190, 
t*3.v,e2 
960 SOUND 2,284,t*3,v,e2,SOUND 1,142, 
t*6,v,.el:S0UND 2,179,t*3,v,e2 
970 SOUND l,159,t*6.v,.el:S0UND 2,284 
,t*3,v,e2:S0UND 2,O,t*3,O 
980 SOUND 2,190.t*3.v.e2,SOUND 1.179. 
t.:t30,v,.el 
990 GOSUB 1720 
1000 GOSUB 1740 
1010 GOSUB 1740 
1020 GOSUB 1720 
1030 SOUND 2,O,t*3.0 
1040 SOUND 2,254,t*3,v,e2 
1050 GOSUB 1740 
1060 GOSUB 1740 
1070 SOUND l,190,t*12,v, ,el 
1080 GOSUB 1720 
;

g,
g


 
:
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*
:



D 2,284,t*3, 
1100 SOUND 2,284,t*3,v,e2 
1110 SOUND 1.213.t*6,v.,el 

120 SOUND 2,253,t*3,v,e2:S0UND 2,284 
,+*3, v, 182 
1130 SOUND 
1140 SOUND 
::150 GOSUB 
1160 GOSUB 
1170 SOUND 
1180 GOSUB 
1190 SOUND 
t.3, O 
1200 
1210 
1220 
1230 
1240 
12'50 


GOSUB 
GOSUB 
GOSUB 
SOUND 


SOUND 
GOSUB 
GOSUB 
GOSUB 
SOUND 
SOUND 


1620 
1660 
1660 
2,213,t*3,v,e2:S0UND 2.0,t* 


l,134,t*12,v, ,el 
1520:GOSUB 1700 
1680 
1680 
l,142.t*6,v,.el 
2,239,t*3,v,e2:S0UND 


2,O,t* 


l,239,t.*12,v,.el 
2,O,t*3,O 
1760 
1780 


l,213,t"t6,v, ,el 
1780 
2.402,t*3.v.e2:S0UND 2.0.t 


SOUND 
GOSUB 
SOUND 
GOSUB 
GOSUB 
SOUND 


l.239.T*6,V. ,El 
1800 
l,253,T*30.V, ,El 
1620 
1800 
2,3
9.T*3,V,E2;SOUND 


2,O,T 


*3,0 
1260 GO::::UB lfj20 
1270 i}OSUB 1800 
1280 GOSUE 1800 
1290 SOUND 2,379,T*3.V,E2 
1300 CON=CON+l, IF CON=l THEN GOTO 160 
1310 GOTO 1820 
1320 SOUND 2,379,T*3.V,E2:S0UND 2,239 
,T*'3, V, E2 
1330 RETURN 
1340 ZOUND 2,379.T*3,V,E2:S0UND 2.253 
,T't:3. V, E2 
1350 RETURN 
;


.
UND 2.379.T*3,V,E2:SOUND 2,O.T 
1370 RETURN 
1380 SOUND 2,379.T*3.V,E2,SOUND 2,284 
.T*3.V.E2 

32
 

T'JP..:t 
1400 SOUND 2,213,t*3,v,e2:S0UND 2.319 
,t*3.v,e2 
1410 RETURN 
1420 SOUND 2,319,t*3,v,
2:SOUND 2,190 


I 


.t*3.v,e2 
1430 RETURN 
1440 SOUND 2,319,t*3,v,e2:S0UND 2,239 
i¡;
';E


:OUND 2.319.t*3.v,e2 
1460 SOUND 2.239,t*3,v,e2:S0UND 2,142 
.t*3.v,e2 
1470 RETURN 
1480 SOUND 2,239,t*3,v,e2,SOUND 2,159 
,t*3,v.e2 
1490 RETURN 
;

g SOUND 2,239.t*3,v.e2:S0UND 2,O,t 
1510 RETURN 
1520 SOUND 4,568,T*18,15,E4 
1530 RETURN 
1540 SOUND 4.478.t*18, 15,e4 
1550 RETURN 
1560 SOUND 4,358,t*18.15.e4 
1570 RETURN 
1580 SOUND 2,239,t*3,v,e2:S0UND 2.179 
,t*3,v,e2:SOUND 2,239,t*3,v,e2 
1590 RETURN 
1600 SOUND 2,426,t*3,v,e2,SOUND 2,179 
,t*3,v,e2:S0UND 2,O.t*3,O 
1610 RETURN 
1620 SOUND 4,758,t*18,15,e4 
1630 RETURN 
1640 SOUND 2,253.t*3,v,e2,SOUND 2,190 
,t*3.v.e2 
1650 RETURN 
1660 SOUND 2,213,t*3,v,e2:S0UND 2,190 
.t*3,v,e2 
1670 RETURN 
1680 SOUND 2,225,t*3,v,e2:S0UND 2,190 
,t*3.v.e2 
1690 RETURN 
1700 SOUND 4,451.t*18,15,e4 
1710 RETURN 
1720 SOUND 4,426.t*18, 15,e4 
1730 RETURN 
1740 SOUND 2.213,t*3.v.e2,SOUND 2,284 
,t*3,v,e2 
1750 RETURN 
1760 SOUND 4,716.t*18,15.e4 
1770 RETURN 
1780 SOUND 2,402.t*3,v,e2,SOUND 2,284 
,t*3,v,e2 
1790 RETURN 
1800 SOUND 2.379,T*3,V,E2:S0UND 2,301 
,T*3, V, E2 
1810 RETURN 
1820 '*** COMIENZA SEGUNDA PARTE ***' 
1830 V=13:T=12:El=1,E2=2,E4=4 
1840 SOUND l,190,T*12,V, ,El 




 SOUND 2,O,T*3,O:SOUND 2.379,T*3. 
1860 GOSUB 1520 
1870 lF SEG=O THEN SOUND 2.239,T*3,V, 
E2 ELSE SOUND 2.225,T*3.V,E2 
1880 SOUND 2.379,T*3,V,E2 
1890 SOUND l,213,T*6,V, ,El 
1900 SOUND 2,253, T*3. V,E2:S0UND 2,379 
,T*3,V,E2 
1910 SOUND 1.225.T*12,V,.El 
1920 GOSUB 1520 




 SOUND 2,O,T*3.0,SOUND 2.379,T*3. 
1940 SOUND 2.284. T*3. V,E2:S0UND 2,379 
,T*3. V. E2 
1950 SOUND l,213,T*6,V, ,El 
1960 SOUND 2,253,T*3,V,E2:S0UND 2,379 
,T*3,V,E2 
i
bg 
M

 i5

O,T*
6.V"El 
1990 SOUND 2,O,T*3,O 
2000 GOSUB 3730 
2010 GOSUB 3730 
2020 GOSUB 1520 
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2030 SOUND 2,379,t
3.v.e2:S0UND 2,O.t 
*3. O 
2040 GOSUB 3730 
2050 GOSUB 3730 
2060 SOUND 2,379,t*3,v,e2:S0UND 2,O,t 
*3.0 
2070 SOUND l,169,t
15.v..el 
2080 GOSUB 1520 
2090 GOSUB 3750 
2100 GOSUB 3750 
2110 ENT -5,l.0,t
2.10,-6,l,l,-3,t*10 
2120 ENV 12.3,-1.t*15 
2130 SOUND l,169,t*15,v-2,12,5 
2140 GOSUB 1520 
2150 ENT 7.1,O,t*5.10,-12,l,l,-5.T
10 
2160 SOUND 2.338.t*9.v.12,7 
2170 SOUND 2,127,t*3,v,e2,SOUND 2,213 
,t*3,v,e2 
2180 SOUND l,169,t*12,v,.el 
2190 SOUND 2,213.t*3,v,e2:S0UND 2.338 
,t*3,v,e2 
2200 GOSUB 1520 
2210 SOUND 2,O.t*3,O 
2220 SOUND 2.213,t*3.v.e2 
2230 SOUND l,190,t*30,v, ,el 
2240 GOSUB 3770 
2250 GOSUB 3770 
2260 SOUND 2,O.t*3,O:SOUND 2.379,t*3, 
v.e2 
2270 GOSUB 1520 
2280 GOSUB 3770 
2290 GOSUB 3770 
2300 t=12:v=13:el=1:E2=2:E4=4 
2310 SOUND 2,O,t*3,O 
2320 SOUND l,142,t*18,v,.el 
2330 GOSUB 3790 
2340 GOSUB 3810 
2350 GOSUB 3830 
2360 SOUND l,150,t*12.v, ,el 
2370 GOSUB 3850 
2380 SOUND 2,301,t
3.v.e2 
2390 SOUND l,201,t*6,v, ,el 
2400 GOSUB 3870 
2410 SOUND 2,239,t*3,v,e2:SOUND 2,301 
,T*3,V.E2:S0UND 2,O,T*3,O 
2420 SOUND 1.169,T*6,V.,El 
2430 GOSUB 3890 
2440 SOUND l,190,T*30.V, ,El 
2450 GOSUB 3910 
2460 GOSUB 3910 
2470 GOSUB 3930 
2480 GOSUB 3890 
2490 GOSUB 3910 
2500 GOSUB 3910 
2510 GOSUB 3930 
2520 SOUND l,213.T*18,V, ,El 
2530 GOSUB 3950 
2540 SOUND 2.358,T*3-1, 15,E2,SOUND 2, 
O,2,O,SOUND 2,358,T*3-1, 15,E2:SOUND 2 
,426,T*3,15.E2 
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2560 SOUND l,225,T*12.V"El 
2570 SOUND 4,758,T*12.15,E4 
2580 SOUND 2,379,T*3-1,15,E2,SOUND 2, 
0.2.0,SOUND 2.379,T*3-1, 15.E2,SOUND 2 
,O,2.0,SOUND 2,379,T*3,15,E2 
2590 SOUND 2,O,T*3,O 
2600 SOUND l,253.T*6,V,.El 
2610 SOUND 2,426.T*3,15.E2 
2620 SOUND 4,758,T*6, 15,E4 
2630 '*** AQUI EMPIEZA LA PARTE ]? ** 
* 
2640 IF SEG=l TREN GOTO 2750 
2650 SOUND l,284,T*30,V, ,El 
2660 SOUND 4,568,t
18,15,e4 
2670 SOUND 2,O,T*3,O 
2680 SOUND 2,379,T*3-1.15,E2,SOUND 2, 
0.2,O:SOUND 2,379.T*3-1, 15,E2:S0UND 2 
,O, 2, O,SOUND 2,379.T*3,15.E2 
2690 SOUND 2,338,T*3.15,E2:SOUND 2.30 
l,T*3.15,E2:S0UND 2,O.T*3,O 
2700 SOUND 4.568,t*18,15,e4 
2710 SOUND 2,379.T*3.15,E2:S0UND 2,45 
l,T*3, 15,E2,SOUND 2,379,T*3,15.V2 
2720 SOUND l,225,T*3,V,.El,SOUND 2,28 
4,T*3,15,E2 
2730 SOUND 1.213,T*3,V,.El:S0UND 2.25 
3. T*3.15, E2 
2740 SEG=SEG+l: IF SEG=l TREN GOTO 183 
O 
2750 t=12:v=13:el=1:E2=2:E4=4:'*** AQ 
UI EMPEZARA LA PARTE + *** 
2760 SOUND l,284.T*54,V"El 
2770 SOUND 4.568,t*18.15,e4 
2780 SOUND 2,O,T*3,O 


2790 SOUND 2.379,T*3-1, 15,E2:SOUND 2. 
O,2,O:SOUND 2,379.T*3-1,15,E2:S0UND 2 
.0.2.0,SOUND 2,379,T*3-1,15.E2 
2800 SOUND 4,568.t*18,15,e4 
2810 SOUND 2,338,T*3, 15,E2:SOUND 2.30 
l,T*3, 15.E2:SOUND 2.0,T*3.0 
2820 SOUND 2,379.T*3-1, 15,E2:SOUND 2, 
O,2,O:SOUND 2.379.T*3-1.15,E2:S0UND 2 
,O.2,O:SOUND 2,379,T*3'l,15.E2 
2830 SOUND 2,O,2.0:SOUND 2,379,T*3-1, 
15, E2: SOUND 2, O. 2, o: SOUND 2,379. H3-'l 
, 15,E2:S0UND 2.0,t*3,O 
2840 SOUND 4,568,t*15,15,e4 
2850 SOUND 2,358,t*3-1.15,e2:S0UND 2, 
0.2.0,SOUND 2,358.t*3-1,15,e2:S0UND 2 
,O.2,O:SDUND 2.35e.t
3-1.15.e2:S0UND 
2. O. 2. o: SOUND 2.358, t.*3--1. 15. e2: SQUND 
2,O,2.0:SQUND 2,358.t.*3--1,15,e2 
2860 SQUND l,253.T*6.V. ,E1 
2870 SOUND 4,568,T*18,V,E4 
2880 SOUND 2.0,t*3.0 
2890 GOSUB 3990 
2900 SOUND l,239,T*6,V,.El 
2910 GOSUB 3990 
2920 SOUND l,213.T*6,V, ,El 
2930 SOUND 2,358,T*3, 15.E2,SOUND 2,0. 
T*3,O 
2940 SOUND 
2950 SOUND 
2960 GOSUB 
2970 GOSUB 
2980 SOUND 
T*3.0 
2990 SOUND 4.568,T*18.15,E4 
3000 GOSUB 3970 
3010 GOSUB 3970 


l,190,T*58.V, ,El 
4.568,T*18.15.E4 
3970 
3970 
2.379.T
3.15.E2:S0UND 


3C
C SCUND 2.379.T
3.15,E2:SCU
D 2.0. 
T*3.0 
3030 SOUND 4,758.T*21, 15.E4 
3040 SOUND 2,301.T*3-1.15,E2:S0UBD 2. 
O,2,O:SOUND 2,301,T*3-1,15,E2:S0UND 2 
,O.2,O,SOUND 2,301,T*3-1.15,E2 
3050 SOUND 2,O,2,O,SOUND 2.301,T*3-1, 
15,E2:SOUND 2,O,2,O:SOUND 2,301,T*6-1 
,15,E2 
3060 SOUND 2,O,T*3,O 
3070 SOUND l,213,T*6,V.,El 
3080 SOUND 4,758.T*12,15,E4 
3090 SOUND 2,338,T*3.V,E2 
3100 SOUND l,225,T*6.V. ,El 
3110 SOUND 2,379,T*3-1.15.E2:S0UND 1, 
253,T*6,V.,El:S0UND 2,O,2,O:SOUND 2,3 
79,T*3-1, 15,E2:S0UND 2,O,T*3,O 
3120 SOUND 4.758,T*6.15,E4 
3130 SOUND 2. 426. T*3, 15,E2:S0UND 2,0. 
T*3,O 
3140 SOUND l,284,T*54,V, ,El 
3150 SOUND 4.568,T*18,15,E4 
3160 SOUND 2.379,T*3-1,15,E2,SOUND 2. 
O,2,O:SOUND 2,379,T*3-1,15,E2 
3170 SOUND 2,358,T*3, 15,E2,SOUND 2.33 
8,T*3, 15,E2:SOUND 2.358.T*3,15,E2:SOU 
ND 2,O,T*3,O 
3180 SOUND 4,568,T*18,15,E4 
3190 SOUND 2,379,T*3-1,15.E2,SOUND 2, 
O,2,O:SOUND 2,379,T*3-1,15,E2:SOUND 2 
,O,2,O:SOUND 2,379.T*3-1.15.E2,SOUND 
2,O,2.0:SOUND 2,379,T*3-1,15,E2 
3200 SQUND 2,O.2.0:S0UND 2,379,T*3-1, 
15.E2,90UND 2,O,T*3,O 
3210 SOUND 4.568.T*18,15,E4 
3220 SOUND 2,358,T*3-1,15,E2:SOUND 2, 
O,2.0:SOUND 2,358,T*3-1, 15.E2,SOUND 2 
.O,2,O,SOUND 2,358,T*3-1.15.E2,SOUND 
2,O,2,O:SOUND 2,358.T*3-1.15.E2 
3230 SOUND 2,O,2,O:SOUND 2,358,T*3-1. 
15.E2:SOUND 2,O.T*3,O 
3240 SOUND l,253,t*6,v, ,el 
3250 SOUND 4,568,T*18,15.E4 
3260 SOUND 2,358,t*3,15,e2 
3270 SOUND 1.239.t*6.v, .el 
3280 SOUND 2,284,t*3, 15,e2 
3290 SOUND 2,358,t*3,15.e2 
3300 SOUND l,213.t*6,v"el 
3310 SOUND 2,284.t*3,15,e2 
3320 SOUND 2,358.t*3.15,e2:S0UND 2,0, 
t*3,O 
3330 SOUND l,190,t*36,v"el 
3340 SOUND 4.568,T*18.15,E4 
3350 GOSUB 3970 
3360 GOSUB 3970 
3370 SOUND 2,379,t*3, 15,e2:S0UND 2.0, 
U3.0 
3380 SOUND 4,568,T*18,15.E4 
3390 GOSUB 3970 
3400 GOSUB 3970 
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3410 SOUND 2,379.t*3,15,e2,SOUND 
 
t*3,O 
3420 SOUND l,150.t*18.v,.el 
3430 SOUND 4,758.t*18.15,e4 
3440 SOUND 2.379 ó t*3.15,e2,SOUND 2.19 
O,t*3,15,e2 
3450 SOUND 2,379.t*3,15,e2:S0UND 2.19 
O,t*3,15.e2 
3460 SOUND 2.379,t*3.15,e2,SOUND 2,0, 
t*3,O 
3470 SOUND 1.169.t*6,v"el 
3480 SOUND 4,758.t*18,15,e4 


..........."'.." \.ju.......\..,u 3'd'7G 


2, O. 


3500 SOUND l,190.t*6,v, ,el 
3510 SOUND 2,379.t*3,15,e2 
3520 SOUND l,213.t*6,v, ,el 
3530 SOUND 2.253,t*3, 15,e2:S0UND 2,37 
9,t*3.15,e2:S0UND 2.0.t*3.0 
3540 SOUND l,225.t*54,v,.el 
3550 SOUND 4,568.t*18,15.e4 
3560 SOUND 2,379,t*3,15,e2:S0UND 2,28 
4,t*3, 15,e2:S0UND 2,379,t*3.15,e2 
3570 SOUND 2,338,t*3,15.e2:S0UND 2,28 
4,t*3,15,e2 
3580 SOUND 4,568,t*9,15,e4:S0UND 2,0. 
U3,O 
3590 SOUND 2,379.t*3, 15,e2:S0UND 2.28 
4,t*3.15,e2:S0UND 4.758,t*9,15,e4:S0U 
ND 2,O,t*3,O 
3600 SOUND 2,478,t*3.15,e2,SOUND 2.45 
1,t*3,15,e2 
3610 gob=gob+l:IF gob=l TREN GOTO 358 
O 
3620 t=12:v=13:el=1 
3630 ENV 8,l,O.t*2.5,15,-l,t*3 
3640 SOUND 7.568,t*6.v,8.el,SOUND 7,3 
79,t*6,v.8.el:S0UND 7,284,t*6,v,8.el 
3650 SOUND 7,225,t*6,v,8,el:S0UND 7,1 
90,t*6,v,8,el:S0UND 7,142.t*12.v.8,el 
3660 SOUND 1.95.t*34,15,8,el 
3670 SOUND 2,225,t*34,15,8,el 
3680 SOUND 4.568,t*34,15,8,el 
3690 SOUND l,284,t*34.15,8,el 
3700 SOUND 2,451,t*34,15.8.el 
3710 SOUND 4,568,t*34,15,8,el 
3720 GOTO 4010 
3730 SOUND 2,379,T*3.V,E2,SOUND 2,225 
. T*3, V. E2 
3740 RETURN 
3750 SOUND 2.338,t*3,v,e2:SOUND 2,213 
.t*3,v,e2 
3760 RETURN 
3770 SOUND 2,225,t*3,v,e2:SOUND 2,379 
.t*3,v,e2 
3780 RETURN 
3790 SOUND 4,676,t*18,15,e4 
3800 RETURN 
3810 SOUND 2.338,t*3,v.e
:SOUND 2,284 
.t*3.v,e2:S0UND 2,225.t*3,v.e2 
3820 RETURN 
3830 SOUND 2,284,t*3,v,e2,SOUND 2,338 
,t*3,v,e2:SOUND 2,O.t*3,O 
3840 RETURN 
3850 SOUND 4,602,t*18,15,e4 
3860 RETURN 
3870 SOUND 2,239,t*3,v,e2:SOUND 2.201 
,t*3. v. e2 
3880 RETURN 
3890 SOUND 4.451,T*18,15,E4 
3900 RETURN 
3910 SOUND 2,301,T*3,V,E2:S0UND 2,22
 
,T*3.V,E2 
3920 RETURN 
3930 SOUND 2,301,T*3.V,E2,SOUND 2,O,T 
*3,0 
3940 RETURN 
3950 SOUND 4,506.T*18.15.E4 
3960 RETURN 
3970 SOUND 2,379, T*3, 15, E2,SOUND 2.22 
5.T*3.15,E2 
3980 RETURN 
3990 SOUND 2.358,T*3.15,E2:S0UND 2.28 
4, T*3,15, E2 
4000 RETURN ' 
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:L
CATE 
,2
:PE
 3:PR! 
NT"FULSE ESPACIO PARA DATOS PERSONALE 
S" 
4020 A$=INKEY$,lF A$O" " TREN 4020 
4030 PEN l:MODE 1 
4040 LOCA TE 2,4' PRI NT" NOMBRE: 
. . . . FEFNANDO PA_T AS SANZ" 
4060 LOCATE 2,8, PR 1 NT" POBLAC ION: 
. ' , . , . ALCALA DE RENARES" 
4070 LOCATE 2,lO:PRINT"PROVINClA' 
. MADRID" 


4090 GOTO 4090 
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Esta sección está dedicada a todas las compras, ventas, clubs de 
usuários de Amstrad, programadores y, en general, cualquier clase de 
anuncio que pueda servir de utilidad a los lectores. IOdo aquel que lo 
desee puede enviamos su anuncio, mecanografiado, a: HOBBY 
PRESS, S.A. AMSTRAD Semanal. APartado de Correos 232 
Alcobendas. Madrid. 
¡ABSTENERSE PIRA T AS! 
". 


. . . . . . . . . . . . . . 


Vendo Amstrad 6128, 
monitor color, con sus manuales 
e instrucciones de utilización, 
unidad de disco adicional, 
impresora matricial, cassette y 
joystick. Además, 42 discos y 
20 cintas, ambos con juegos y 
programas de gestión, así como 
de utilidades de sistema. 
Además originales de Base de 
Datos, Hoja de Cálculo, 
Tratamiento de Textos y dBase 
11, todos ellos originales y 
manuales de utilización. 
Interesados llamar de lunes a 
viernes, de 21 a 22 horas al te!. 
(93) 339 39 99, Y preguntar por 
Ernesto. 


. . . . . . . . . . . . . . 


Me urge comprar muchos 
Vic-20 (que funcionen). 
FrancescSota Entenza, 24. 08015 
(Barcelona), Te!..- 
. . . . . . . . . . . . . . 


N ecesito urgentemente 
ordenador Spectrum 48 K, con 
clable, transformador, e 
interface, ofrezco hasta 10.000 
ptas., interesados llamar a 
Dioni, Te!.: (91) 880 23 53. 
Madrid. Llamar de 2,30 hasta 
4,30 y a partir de las 21 horas. 


. . . . . . . . . . . . . . 


Mándame un disco con algún 
juego o utilidad y te lo devuelvo 
grabándote en él los siguientes 


Mercado 
COMLJN 


títulos: Viernes 13, 
Masterchess, Águilas del 
espacio, Plaga Galáctica. Oh 
mummy, Tron. Panic. 
Comecocos, Invaders, Space, 
Hoja de Cálculo (Mastercalc)... 
Si me mandas alguna cima con 
un juego te puedo grabar en 
ellas: Army Moves, Game 
Over, Exploding Fist, Tres 
Semanas en el Paraíso. Dime lo 
que no quieres que te grabe. 
También cambio las cintas 2 y 
del 12 al 17 de la Serie Oro, y 
la 3 y 7 de Your Computer, 
todas por un par de juegos 
cinta/disco o alguna utilidad. 
Javier Fernández Álvarez. Pérez 
Ayuso, 19. Te!. 4155845, 28002 
Madrid, 


. . . . . . . . . . . . . . 
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"Sábado Chip ", de 17 a 19 h. 
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Vendo 32 discos para el 6128 
(por cambio de ordenador), con 
los mejores programas del 
mercado: Devpac, Oddjob, 
dBase n, Tasword. Tasprint, 
Tascopy, Tasspell, Discology, 
Placon, MS Cabal, MBasic, 
CBasic, Pascal MT, Multiplan, 
Dr. Graph, Dr. Draw, Art 
Studio, Contabilidad General, 
etc., y más de 40 juegos. Todo 
por 35.000 ptas. o por 
separado. Llamar por las tardes 
al te!. (988) 74 66 48. Palencia. 
Preguntar por César. 


. . . . . . . . . . . . . . 


Cambio, compro y vendo. 
Juegos de ordenador, como 
1942, Ikari, Kung Fu Master, 
Commando, Chiller, etc., poseo 
unos 100 juegos, también 
cambio copiones. Te!. (93) 
379 43 81. (Barcelona). 
Preguntar por Adoljo, contestaré 
a todos. 


. . . . . . . . . . . . . . 


1. 0. Salt. 17190 (Cerona). Tel.: 
23 42 06. ¡El club espera todas 
vuestras cartas! 


. . . . . . . . . . . . . . 


Ha nacido Soft Friends, tu 
club de soft. Para ordenadores 
Amstrad CPC 464. Spectrum, 
Commodore 64 y MSX. Para 
información manda nombre, 
dirección y dos sellos de 10 
ptas. (para gastos de envío) a 
Soft Friends (Amstrad). Avda. 
Gasteiz 17, 3.° C. Vitoria. 
01008 (Álava). Intercambiamos 
ideas y programas, además de 
un folletín informativo mensual 


. . . . . . . . . . . . . . 


Vendo y cambio juegos para 
Amstrad 464,664, 6128, todos 
en cinta. Poseo gran variedad 
de novedades como Game 
Over, Shockmay Rider, Billy 
Barriobajero, etc., interesados 
enviad lista a Julio Ramos 
Rodríguez. Plaza Primo de 
Rivera. 1,4.°.12.33001 
Oviedo. 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 6128, 
fósforo verde, con cable para 
conexión de cassette, 
compiladores Pascal (Hisoft y 
Turbo), nueve discos vírgenes, 
numerosas utilidades y trucos 
(tanto cinta como disco), más 
de 100 revistas y suscripciones 
en AMSTRAD Semanal. 
Interesados escribir a 
Leonardo Janer Carda. Ríus y 
Taulet, 47, 5. 0, 1. a. Badalona 


. . . . . . . . . . . . . . 


Deseamos contactar con 
usuarios de Amstrad CPC 
6128, para el intercambio de 
juegos y sobre todo utilidades 
en disco. ¡Abstenerse en cinta! 
Poseemos más de 400 
programas entre ellos las 
últimas novedades. Se promete 
contestar a todos con rapidez y, 
por favor, mandar lista. 
Escribir a José Bollo Delgado. 
Pacheco, 24, 3.°. Salt. 17190 
(Cerona). Te!.: (972) 23 40 46. 
También a Xavier Parramón 
Porcell. Ángel Guimera, 95, 4. 0, 
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Todos los sábados, de 5 a 7 
de la tarde, en "Sábado Chip" . 
Dirigido por Antonio Rua. 
Presentado por José Luis 
Arriaza, hecho una 
computadora. Dedicado en 
cuerpo y alma al ordenador, 
y a la informática. Haciendo 
radio chip... estilo Cope. 
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Crítica 
constructiva 


Antes de disfrutar con un 
PCW 8512, yo era asiduo al 
ZX Spectrum, y lo sigo 
siendo para los juegos. De 
hecho, aprendí a programar 
en Basic y CM tecleando los 
programas que la revis
a . 
Microhobby Spectrum mclUla 
en sus páginas. Creo que 
deberíais publicar también 
programas de juegos para el 
PCW, pues es la manera 
más fácil y cómoda de 
empezar a conocer el 
ordenador. En el número 71 
de la revista afirmáis que los 
PCW son poco menos que 
un desastre para esta 
función. Es evidente que este 
ordenador no es para jugar, 
pero estoy en completo 
desacuerdo. Sin ir más lejos, 
tengo un fascinante juego de 
ajedrez en 3D que así lo 
prueba. Poco a poco se van 
anunciando juegos para los 
PCW (Troglo, Bridge, ...). 
Me gustaría, y no sólo a mí, 
que los probarais. 
Ignacio Amador 
Agradecemos a nuestro amigo 
Ignacio las sugerencias e ideas que 
nos hace llegar en su carta. La 
publicamos en esta sección, 
aunque no se trata especificamente 
de una consulta, para recordar a 
todo el mundo que "Sin Dudo. 
Alguna}} es, debe ser, un vehículo 
de comunicación entre la revista y 
los lectores, así como entre los 
lectores mismos. Por ello, 
animamos a todos a que sigan el 

iemplo de Ignacio y nos haftan 
llegar todo tipo de comentarlOS que 
consideren útiles. 
Ignacio: el PCW se diseñó como 
un procesador de textos, ni 
siquiera como máquina de gestión, 
ni de juegos, ni de nado., y, salvo 
excepciones como la tuya o la de 
otros lectores, la gran mayoría de 
sus usuarius se supone que lo 
quieren para ese tipo de 
actividades. Por eso, las casas de 
mftware no se han puesto a 
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Sin duda 
ALGUNA 


producir juegos en gran escala 
para él. Algo hay, pero mucho 
menos en cantidad y muchas veces 
en calidad que para los CPC u el 
Spectrum. En cualquier caso, 
recogemos el guante de eso de 
probar en detalle juegos para 
PCW Pronto podrás vedo para 
creedo. Una vez más, gracias por 
tu carta. 


U tilida:des 
.' . ... 
"dcl fitm
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. , 
 
 '" 


...María me que 
r ,i£Úeran a las siguientes 
Ip .gtlntas, que imagino 
interesan a todos los 

rogramadores: 
¿Para qué sirven las 
rutinas BCD4 y BC44 del 
firmware? 
¿ Se puede reducir un 
programa escrito en Basic a 
Código Máquina? 
¿Existe alguna rutina en el 
Firmware equivalente a List? 
¿ La Ram destinada a la 
pantalla puede usarse para 
hacer gráficos? 
Roberto Laguna 
1. La rutina BCD4 busca en 
todas las memorias ROMs que 
estén activadas en ese momento 
una rutina que corresponda al 
nombre del comando RSX que se 
le suministra como parámetro. 
Las condiciones de entrada son 
las siguientes: 
RL: dirección de la memorza 


donde se encuentra el nombre del 
comando a buscar. 
Condiciones de salido.: 
Si se ha encontrado, el carry 
está a uno. 
El registro C contiene el 
número de ROM donde se 
encuentra la rutina. 
El registro R L contiene la 
dirección donde dicha rutina 
comienza, para poder decide a la 
máquina algo parecido a JP 
(HL). 
En cuanto a BC44, su misión 
e!i rellenar un área rectangular de 
la pantalla con una tinta 
determinada, parecido a la orden 
Basic FILL. 
Las condiciones de entrado. son' 
A: máscara correspondiente a 
la tinta de relleno. 
R: columna izquierda del 
rectángulo. 
D: columna derecha. 
L: línea superior. 
E: línea inferior. 
2. Sólo con un compilador. 
Lamentablemente no existe tal 
cosa para el Basic de los 
A mstrad. Tendría que usar los 
compilado res que corren bajo 
CPIM de Mbasic o Cbasic, 
nznguno de los cuales son 
completamf'flte compa ibles con el 
Locomotive Basic. 
3. Que nosotros sepam{,' no. 
. No. Tenga en cuenta q ''! el 
con enido de esa R am es lo ue se 
ve en la pantalla. Si mete J,lgo 
allí se h rá inmediata lente 
visible, y s..' borrará uando la 
pantalla lo haga. 


NECESITAMOS personas 
que conozcan profundamente 
lenguaje ensamblador del Z80 y 
dominen los ordenadores Amstrad 
CPC desde el punto de vista del 
Lenguaje Máquina. 
Si usted es uno de ellos póngase en 
contacto con nosotros rápidamente 
en la dirección que se indica a 
continuación, poniendo en lugar muy 
visible del sobre. 
Referencia 
Código Máquina 
AMSTRAD Semanal 
Nuestra dirección es: 
AMSTRAD Semanal 
Carretera de Irún. km 12,400. 
Fuencarral. 28049 Madrid. 



, 


I 


J 



 
...'''' r 
\!i\ 

tWA"'''' .- .,'<'\\ 

....... -" _- . - . - 't 
. ... 
 

 ---- ..'
 
--!;- 
-i- .
 
.;, 
 


..
"" , c-\ 
\ 


"'" 


0. 
 .z: 


.. 


. 1Ú\09'J, 
{a' 
sa{'(\\1 Ga{'(\e s , 
'lJo{\Ó \b a \\ 
aas\(e w'!o. o 
W,!O o{\ eS e{\ \J. o{ óe\ 
\:.s\e {'(\ \0 {'(\e\ 

\}\:."O, 
{'(\e{C aóo . 


\ \ 


\._..-
..._-_..- 
..--......--.....- 
" 
=::...
..:::- 


-:. --- 
- . - - 


"mLl' 


o 


- . 
- a - 
-
 


...,:J::::;l 
\I..,
 

, M 
.,.ff 
!! 

 
¡::wKi' 
Ii 
"'\ 

j 

.
 


-f _0-. 


£ 


...:..¡ - 




 


'. \ 
\ . 

 


:t,_ 
:i' 


Siente el placer de la aventura y 
disfruta la pasión del vértigo, con lo 
último de ACTlVISIÓN, 
¡ENDURO RACER, todo un bombazo! 
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SWEEVO'S WORlD 11, De Hydrofool. 
U.S. GOlD presenta CORRECAMINOS 
y BOUNCE ataca de nuevo con 
THING'BOONCES BACK. 
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Por Juan Carlos Plaza 


El segundo banco de memoria del 6128 es posiblemente el gran olvidado 
por usuarios y programadores. El difícil manejo de estas 64 K extras, 
asusta e intimida al programador que no se encuentre muy familiarizado 
con las técnicas de paginación de memoria, sólo accesibles desde 
Código Máquina. 
Nosurros, por nuestra parte, ofrecemos h01 una utilidad que no dudamos 
es altamente sugerente para usuarios y programadores: un buffer de impresora 
que aumentará la velocidad de impresión hasta ocho veces. 


L a rutina que presentamos en esta 
ocasión es capaz de hacer trabajar a la vez 
la impresora y el ordenador sin necesidad de 


largas esperas entre los listados. 
Cuando se utiliza la impresora para listados, 
resultados o textos, el ordenador siempre se 


l 
1 
I 


PROGRAMA CARGADOR 


10 REM ** A
STRAD SEMANAL ** 
20 MOCE 
:PRI
T "ítr BUFFER-64 1-8 
7 !H" 
30 PRINi:PRINT:PRINT:PRINT":8UFF,@e 
t :La variable 'et' da el numero de 
caracteres en el buffe" (max 64 k) 


dO 
RINT:PRINT":DES :Para desactiva 
r la rutina. ., 
50 PRINT:PRINT":ACT :Para activarla 
nuevamente," 
60 PRINT:PR¡NT'
RES :Para resetear 
la rutina." 
70 PR!NT:PR!NT":INB :Para reiniciaI 
izar la rutina." 
80 h=&AOOO:MEMORY h-l 
90 FOR i=1 TO 69:FOR j=l TO 10:REAO 
aS:c=VAL("bUtaS):s=stc:POKE htk,c: 
k=ktl:NEXT:READ seo 
100 IF SCO{>5 THEN PRINT"ERROR en 1 
inea:"ji*10tliO:STOP 
110 s=O:NEXT:POKE htk,O:END 
120 DATA CO,11,B(,3B,3B,CI,2I,63,00 
,09, 862 
130 DATA 7E,23,5E,23,56,23,E5,EB,09 
,ES, 1113 
140 DATA SE,23,56,EB,09,EB,E1,73,23 


.72, 1183 
150 DATA El,3D,20,EA,21,34.00,09,7E 
,47, 843 
160 DATA 23,7E,CD,5A,BB,IO,F9,3£,C9 


.,., 1??' 
J "_'.,., .........1. 


170 DATA OO,OO,C3,OA,OO,2E,OD,OA,OA 
f 20, 524 
lBO DATA 20,20,20,20,20,20,20,20,20 
,2A. 330 
190 DATA 2A,20,42,55,46,46,45,52,2D 
,36, 615 
200 DATA 34,20,2E,38,37,20.2A,2A,20 
,20. 421 
210 DATA 20,20.20,20,20,20,20,20,20 
,00. 301 
220 DATA OA,OA,38,32,00,2F,OO,DE,OO 


,E6. 628 


230 DATA OO,Fl,OO,F4,OO,F9,00,01,01 
,04, 740 
240 DATA 01,07,01,OA,0I,OD,01,2F,01 
, 3F, 145 
250 DATA 01,42,01,4A,01,4D,01,50,01 
,56, 388 
260 DATA 01,86,01,BC,01,BF,01,95,01 
,A6, 737 
270 DATA 01,Bl,01,BS,OI,BB,01,BF,01 
,03, 955 


280 DATA 01,D6,01,DA,Ol,06,02,OO,02 
,lA, 484 
290 DATA 02,10,02,20.02,24,02,2£,02 
,39, 210 
300 DATA 02,46,02,49,02,4C,02,4F,02 
,54, 392 
310 DATA 02,63,02,79,02,34,02,36,01 
.63, 434 
320 DATA 01,6B,01,77,OI,99,O
,9C,Ol 
,(:9, 741 
330 DATA 01,ES,01,FD,01,lS,02,76,02 
,FE, 882 
3tG DATA 00,21,28,BD,11,A9,02,01,06 
,00, 460 
350 DATA ED,BO,21,3A,01,22,2C,BD,3E 
,C3, 1029 
360 DATA 32,2B,BO,01,FE,OO,21,20,Ol 
,3E, 665 
370 DATA C9,32,FO,OO,C3,Ol,BC,OF,01 
, C3 , 1294 
380 DATA 24,01,C3,62,01,C3,A3,01,C3 
,76. 1003 
390 DATA 01,C3,35,01,42,55,46,C6,41 
, 43, 801 
400 DATA D4,44,45,D3,52,45,03,49,4E 
,C2, 1267 
410 DATA OO,OO,OO,OO,OO,FE,OI,CO,DD 
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bloquea durante un tiempo que depende de la 
longitud de los datos a enviar. En los listados un 
poco largos, el tiempo de espera puede llegar a 
ser «eterno". Para que este tiempo se reduzca 
considerablemente, hemos creado la siguiente 
rutina. De esta forma no hay que esperar a que 
se acabe un listado para poder seguir trabajando 
con el ordenador en otra tarea. 
Dicha rutina crea un buffer que se encarga de 
manejar la salida del ordenador hacia la 
impresora, reduciendo el tiempo de espera y 
pudiendo contener hasta 65.537 caracteres en el 
segundo banco de 64 K del CPC 6128. 
La espera depende del número de caracteres 
que mandemos a la impresora. Así, por ejemplo, 
un listado de 25 K tarda tan sólo 33 segundos en 
darnos el Ready, mientras que si no existiese el 
buffer y con una impresora de 100 cps, el tiempo 
sería superior a los 4 minutos. Esta gran 
diferencia hace que la utilización del buffer sea 
muy interesante. 
. El programa es compatible con cualquier 
Impresora y se pueden utilizar tantos programas 
escritos en Basic como algunos escritos en 
binario, por ejemplo Amsword, Cena-Mona, 
Tascopy, MasterfIle, Mastercalc, etc. 
El manejo es muy sencillo y se reduce a 
utilizar normalmente los comandos Basic 
destinados a la impresora como pueden ser List 
#8, Print #8, Write #8, Width, etc., o bien las 


. 



 


,fE; 778 
420 DATA OO,DD,66,01,ED.S8.AS,02,73 
,23, 969 
430 DATA 72,C9,CD,81,01,18,AB,E5,05 
, C5 ; 1484 
440 DATA F5,21,F5,01,11,
C,01,06,81 
, CD, 1134 
450 DATA EF,BC,CD,6A,01,3A,A7,02,32 
,AF, 1191 
460 DATA 02.CD.SB;BD,21,AO.Ol,22,2C 
,BO, 961 
470 DATA F1,C1,21,OO,40,18,6F,2í,AF 
,02, 8JE. 
480 DATA 7E,FE,03,CO,34,21,EF,01;11 
,32, 967 
490 DATA 00,Ol,Ol,OO,C3,E9,BC,21,A9 
,02, 822 
500 DATA 11,2B,BD,OI,03,OO,ED,BO,F3 
,21, 942 
510 DATA 00,OO,22,AS,02,21,OO,40,22 
,A3, 495 
520 DATA 02,22,Al,02,21,04,04,22,A7 
,02, 443 
530 DATA AF,32,AF,02,21,EF,01,CD,EC 
;Be 1304 
540 DATA FB,C9,3E,04,2A,AF,02,BD,CO 
,3D, 1179 


T()08 


550 DATA lB,EB¡E5,D5:F5¡2A,Al¡v2:23 
; 7e, i310 
560 DATA FE,BO,3A,A7,02,CC;66.02,EB 


,2A, 1194 
570 DATA A3,02¡F5,B7,ED;52¡2B,iD,Fí 


,32, 1272 
580 DATA A7,02,CO,SB,BD.F3,Fl,EB,77 
,22. 1526 
S90 DATA A1,02.2A,A5,02,23,22,A5,02 
,AF, 783 
600 GATA CO,SB,BD:37;Dl,El,C9,2A,A7 
,02, 1386 
£10 DATA F1,BC¡20,Du,
1:B7ii8!f2¡OO 
,00, 1372 
620 DATA 00,00.00,00,00,00,00,00.00 
,00, O 
630 DATA OO,CD,AC,02,3£,05,32,3F,B8 
,DB, 1087 
640 DATA 3A.AB.02,CD,5B.SO,FS,2A,A3 
,02, 1165 
650 DATA 7E,FE,FF,2S.22,CD,A9,02.30 
,S3, 1221 
660 DATA CD,5E,02,CD,75,02,2A,A5,02 
,2B, 877 
670 DATA 22.A5,02.F1,CD,SB,BD,7C,BS 
, CO , 1424 
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580 DATA 21,3A,01,22,2C,5D.(3,88,01 
,E5, 920 
690 DATA FS,CD,5E,02,'5,CD.SB,S
,7E 
, FE , 16.56 
700 DATA FE,20,15.Fl,32,A3,02.CO,5E 
,02, 1069 
710 DATA CD,75,02,CD,7C,02,Fl,El,2A 
, AS, 1:328 
720 DATA 02,2B,18,C9.F1,Fl,El,18,B6 
,23, 1218 
730 DATA 7C,FE,30,3A,A3.02,CO,3C.FE 
,08 J 124:3 


740 DATA 20,02,3E.04.21,OO.40,C9,Fl 
, C3, B34 
750 DATA 5B,BO.32.Ae,02.22,43,02,C9 
,CS, 1097 
760 DATA O!.!O,7F,ED,49,3E,5B,ED,79 
,3(, 1025 
770 DATA ED.79,3E.17,CO,IE,58;28,£0 
,21. 1175 
7BO DATA 86.B6,36,1S,23,AF.77,23.36 
,01, 810 
790 DATA 23,77,23.77,C1,C9,OO,40,00 
,40. 830 
800 DATA OO,00,04,04,CF,1B,eS,CF,SB 
,es, e09 
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opciones de los distintos programas referidas a la 
Impresora. 
Al utilizar alguna de estas órdenes o los 
programas que usen la impresora, los datos que 
se envían a ésta se van almacenando en el buffer 
a razón de unos 800 a 1.000 cps. A su vez, la 
rutina los manda a la impresora, cuando ésta 
admita más datos, comprobando siempre que está 
en línea. De esta forma no se pierde ningún 
dato. El buffer se seguirá vaciando hasta haberlos 
mandado todos. En cualquier momento podemos 
enviar más caracteres al buffer, con la sola 
limitación de llenarlo, algo bastante difícil, si 
tenemos en cuenta que son 64 K. 
Además, incluye una secuencia de control para 
detener la impresora cuando detecte los caracteres 
&FF y &FE, como si hubiéramos llegado a un 
final de página. La forma de conseguirlo es 
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DEF
 R26-CE 
DEFW R27-CE 


OEF
¡ R28-CE 


OEFW F:29-CE 
DEFW R30-CE 
OEFW 
31-CE 
DEFW R32-CE 
DEI=W R33-CE 
DEFW R34-CE 
DEFW F:35-CE 
OEFW R36-CE 
OEFW R37-CE 
DEFW R38-CE 
DEFW R39-CE 
DEFW R40-CE 
OEFW R41-CE 
DEn l 1=:42-(E 
JEFW ;:;43-C£ 
OEFW INB-CE 
DEFW ACT-CE 
DEF
i Acm-CE 
OEI=W RES-CE 
DEn: OES3-CE 
DEFW CESAC-CE 
DEF
I AQUI-CE 
DE'W I6V-CE 
OEFW EVENT-CE 
OEFW RIMP-CE 
DEFW MOD-CE 
OEFW NONTAB-CERO 


LO HL,#BD2B 
LO OE,I
PR-CERO 
LO Be. 6 
LDIR 
LO HL,EMPI-CERO 
LD (IBD2C> I HL 
LD A,#C3 
LD (#BD2B),A 
LO BC,NONTAB-CERO 
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LD A, (HU 
CALL #8851\ 


O-INZ BUr 


LD A,#C9 
LO (#('0), A 
...TP RO-CERO 


!JEFE 46,13,10,10 
DE'M R tt BUFFER-6
 
DEFB !3\:'11!¡1
 
DEFB 59 


DEF
! R01-CE 
DEFW %2-[£ 


D£F
¡ R l-CE 


DEF
 f
UE -CE 
DEF
i RE -CE 
DEFW 
;2-(:E 
OEFW F:3-CE 
úEi:1¡! R4-CE 
OEr-W R-5-CE 
CEFl>i R6-CE 
DEFW R7-CE 


DEF

 RB-CE 
DEFW F:9-CE + 1 


JEFt.i R 1 
j-CE 


DEF
i 
1 i -CE 


OEF\;¡ R12-CE 


DEFVJ R13-CE 


ilEFi¡ Rit-CE 


DEFW F:l$-CE 
'f)[FW R16-CE 
DEFW R17-CE 
DEFW H1B-CE 
DEFW F:19-CE 
DEFW F!20-CE 
DEF
 R21-CE 
OEFW R22-[£ 
DEFW F:23-CE 
DEF
¡ R24-CE 
DEFW F:2S-CE 


BOO 
Bl0 


820 
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840 
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870 
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900 
910 
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930 
940 
9.50 
960 
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980 
990 
1000 
1010 
1020 
1030 
1040 
1050 


1060 
1070 
1080 
1090 
1100 
1110 RO: 
1120 Rl: 
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1180 
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1200 R2: LD HL,TAB-CERO 
:210 
D A,#C9 
1220 R3: LD (RE-CERO) ,A 
1230 Jf' #BCDl 
1240 NONTA8: DEFW NQM-CERO 
:250 R4: .JP BllF -CERO 
1260 RS: JP ACT-CERO 
1270 R6: JP DES-CERO 
1280 R7: .Jp RES-CERO 
i290 F:B: TP INB-CERO 
, . 
1:300 NGM: 
EFM 11 BUj:',1 
13:0 DEFB "F"+#80 
1:320 DEn1 "AC" 

:330 DEJ:S "T" t#8(! 
1:340 DEFM IJOEPJ 
1350 OEFB "5"+#80 
136C DEFM "RE" 

370 DEFB "5"+#80 
1380 DEFM "IW' 
:390 DE"B "8"+#80,0 
1400 TAS: DEFS 0,0,0,0 
1410 8l!F: CP 1 
1420 RET NZ 
1430 LD L,( IX+O) 
:440 LD H, m+D 
1450 F:9: LO DE,ICUA-CERO) 
1460 LD (HU,E 
1470 !NC H' 
.L 
1480 '[\ (HLU 
L
 
1490 RET 
1500 INS: CALL DES2-CERC 
1510 .IR NUE 
1520 
1530 EMPI: PUSH HL 
1540 PUSH DE 
1550 PUSH BC 
1560 PUSH AF 
1570 RlO: LD HL,BLOCK-CERO 
1580 Rl1: LO OE,EVENT-CERO 
1590 LO S,129 


1600 
1610 R12: 


1620 R13: 


1630 R:4: 


1540 
1650 R15: 
1660 
1670 
1680 


1590 


i 7
.
i1 


171i) 


1720 HeT: 


1730 


1740 


1750 


1 ni) 
1770 ACTIV: LD 


178e 


1790 


1:=:OfJ 


18iO 


1B20 RES: 


1830 


1840 
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incluyendo en el programa la siguiente línea: 
PRINT #8,CHR$(&FF)CHR$(&FE); 
Es importante no olvidar el punto y coma 
final. Los dos caracteres &FF y &FE actúan 
como códigos de control para el buffer; es decir, 
no salen en la copia de papel. Cuando la rutina 
encuentra estos dos caracteres cancela 
temporalmente el envío de datos a la impresora. 
Además cambia el color del borde de la pantalla 
(rojo con franjas azules) y espera a que se pulse 
la tecla Control para continuar con la impresión 


h\-N 


CALL #8CEF 
CALL AcrIV-CERO 
LO A,(8FIN-CERD} 
LO (ACABA-CERO) ,A 


2000 DES: 


2010 H20: 


202¡; 
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LO 


A . . 
," 
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:J 


CALL #8D5B 
LD HL.RUT-CERO 
UJ (#BD2C) ,HL 
POP AF 
POP BC 
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LD 
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CAL. #8J.58 


225C 
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2270 PDP AC 
22:3( EX JE. 
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D
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1850 LDIR 
1850 DES2: O! 


in 
'-.Li 


HL,O 
WJA-CERa) HL 
HL,UOOO 


1880 H16: 
1890 DES!: 
1900 Rl?: 


1910 R18: 


1920 


1930 R19: 
940 
950 DES3: 
960 DESAC: 


97Ú 
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() 
99{) 


LD 
CP 
RET 
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2:4¡; 


LD :!NI-CEROI,HL 
LD (FIN-CERQ),HL 
LD HL,#0404 
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25: 


2290 INICr: 
D .

 ¡A 


LO (FI
-CE
O) K
 
LD 
l,(CUA-CERO) 


INC H
 


LD ((uA-CERO' k
 
XOR A 
CALL #BD5B 
SCF 
POP DE 
POP HL 
RET 
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LO HL,IMPR-CERO 
LD OE,#8D28 


222G 
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LD 8C:3 


:240 AQ!J:: 


Lu 


LO 


2310 R26: 
2320 



D (BFIN-CERDJ1HL 


2
::30 R27: 


XOR A 
LD (ACABA-CERO).A 
LO HL.CLOCK-CERO 


2340 
2350 
2360 
2370 VUE: 
2380 


CALL #BCEC 


EI 


RET 


2390 
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en el mismo punto donde la había dejado. 
Mientras tanto, debemos haber cambiado el 
papel de la impresora y haberla puesta en línea. 
Cuando la rutina espera que se pulse Control, el 
ordenador no puede ejecutar ninguna otra tarea. 
Por ejemplo si tecleamos el siguiente programa 
10 FOR i= 1 TO 20:PRINT #8, "Ejemplo del 
buffer":NEXT 
20 PRINT #8,CHR$(&FF)CHR$(&FE); 
30 J = J + l:IF J = 2 THEN END ELSE GOTO 
10 


y lo ejecutamos, teniendo conectada la impresora, 
veremos que, después de imprimir «Ejemplo del 
buffer" 20 veces, el buffer lee los dos códigos de 
control de la línea 20, por lo que la impresora se 
detiene y el color del borde de la pantalla 
cambia. Ahora colocamos el papel, ponemos la 
impresora en línea y pulsamos Control. En ese 
momento el borde de la pantalla vuelve a su 


color inicial y seguirá imprimiento hasta 
completar otras veinte veces el mensaje del 
ejemplo. 
Para una mayor facilidad en el manejo del 
buffer hemos incluido los siguientes comandos 
RSX: 
· IBUFF,@T%: La variable r% nos informa 
del número de caracteres que contiene el buffer. 
Por la forma de tratar el Amstrad los números 
enteros, los mayores a 32.767 los considera 
negativos. Así, la forma correcta de utilizar este 
comando sería: 


r% =0:Ibuff,@T%:PRINT 
(r%-65536 x (r% < 0)) 


de esta manera se obtiene un número positivo 
entre O y 65.536. 
· IDES: Cancela el envío de datos a la 
Impresora. Los que ya contiene el buffer se 


2
OO 2790 PUSH AF 3180 R42: LO (INI -CERO) HL 
2410 
GU: 
O 
L I 
8F!

(:ERO) 2800 R35: CALL PRUE-CERO 3190 F:E; 
2420 POP A¡: 2810 PUSH AF :3200 
2430 CP H 2820 CALL #8058 3210 USt)A: F'IJSH BC 
2440 JR NZ,MUI 2830 LO A. (HU 3220 ARRiB: L
 BC, #7Fl ':' 
2450 PO? AF 2840 CP 11"" 3230 OUT (C ,C 
__
r. 
2460 OH A 28"í) JH NZ,NOSE 3240 LO A,#-58 
2470 ,!R VI)E 2%0 POP AF 3250 OJlT (C) ,A 
'J I 
2480 2870 R36: LO 18INI-CERO),A 3260 !NC A 
2490 CLDCK: DEFS 6 2880 R37: CALL PRUE-CERG 3270 OUT (C) ,A 
2500 BLOCK: DEFS 7 2890 H38: CALL MOO-CERO 3280 
D A,23 
f 
2510 E'VENT: CALL ESI
P-CEqC 2900 p.;i"I. U\LL USlil\-CERO 3290 CALL #BB1E 
.
.;r
1 
2520 LD A.
 2910 POP AF 3300 .JR Z,ARPIB 
25
:O LO (#E{88F:, A 2920 PO? 
L 3310 LD HL,#B6f:6 
.
( 
r RET C 2930 R40: LD HL. (Ct)A- CERO) LD (HL 
.c 
L..t.1f".. l32(
 ,. .::J 
25-50 P.28: 1" Al (BPH -CERD) 2940 DEC HL 
:..LJ 3330 INC HL 
2560 CALL 1@58 2950 JR OTRO 
:34¡j XOR A 
2570 PV:3H 
¡: 296(; NOSE: PO? A¡: 
H. 3350 LD (HU,A 
2580 p';'!:/" LD HL.nN!-CERO) 2970 POP AF 
'

I 3%0 INC HL 
2590 
D A,(4L) 2980 POP rJL 3370 lO (HU,l 
2600 "0 ;rF 2990 .JR Rm HL 
\.., 538(
 iNC 
26:0 JR L,CPA 3000 3290 LD (HU,A 
f.
20 R
MP: CALL !MPR-CERO 3010 PRIJE: INC IiL 340:; "!!r.I!"" HL 
l,!"t\_" 
2630 j
 NC! IMCC 3020 LD A,H 3.110 LD (HU ,A 
2640 R30: CAL.. PRUE-CERO ?(
30 CP #80 3420 POF' Be 
2650 
:31 : CALL MOQ-CERO 3040 R41: ,1'\ A,iBINI-CERO) RET 
t.u 3.430 
266
 iVj'"., LO HL. (CIJA-CERO) :3050 RET N7 3440 
n'..'L. 
2670 OT
D: OEC HL %60 3.450 
2680 R33: LO (CiJA-CERO),HL 3070 ELIJE: r
c A 34E.0 FIN: OEFB 0,'-40 
2690 POP AF :30BiJ CP <i 3470 INI: DEFB O,#ÁO 
2700 CALL #805B 3090 JR NZ, ALL! ::i4J::1,; CUA: DEFB OJO 
2710 
a A,H 3100 LD A,4 3.490 BFIN: DEFB .4 
2720 OR 31!0 ALLI: La 
l, uooo 3500 BINI: OEFB 4 
27:30 RET NZ 3120 RET 3510 
2740 
34: LO HL,EMPI-CERO 3130 3520 IMPR: OEFB !lCF,#18,#B8 
2750 LD :#BD2C),HL 3140 IMOC:: POF' .,. .,p
() E:3IMP: D£FB #CF,#SB,'S8 
i"f¡," -.J
.j:,¡ 
2760 R43: -IP DES1-CERO 3150 JP #BD5B 3540 ACABA: OEFS ! 
¡ 
2770 3160 3550 CE: E{W CERO-l 
2780 CPA: PlISIi HL 3170 MOD: LO (BINI-CERO),A 
. 
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guardan por si se quiere reanudar nuevamente la 
impresión, mediante el comando IACT. Es útil 
para cambiar el papel, detener un listado, etc. 
· IACT: Se utiliza para reanudar la 
impresión, después de haber utilizado el comando 
IDES. Si no se ha utilizado anteriormente IDES 
o no hay caracteres en el buffer no produce 
ningún efecto. 
· IRES: Reinicializa completamente el buffer, 
borra todos los caracteres que en él hubiera, 
cancela el envío de datos a la impresora y 
modifica la llamada de la impresora, con lo que 
la salida hacia ella ya no pasa por el buffer. Esta 
orden equivale a trabajar con la impresora, como 
si no se hubiese cargado el programa. 
· IINB: Sirve para reinicializar el buffer, 
después de una orden IRES, modifica la llamada 
de impresora para que pase a través del buffer y 
crea el efecto contrario a IRES. Además borra 
todos los caracteres que hubiese en el buffer en 
ese momento. 
Para cargar el programa, hay que copiar el 
cargador Basic y ejecutado. Si no aparece ningún 
error se procede a su grabación en binario de la 
forma siguiente: 


SA VE"BUFFER" ,B,&A000 ,000 ,692 


Una vez salvado en disco o cinta, se ejecuta 
escribiendo el siguiente programa cargador del 
binario: 


10 H = HIMEM-692:SYMBOL AFTER 
256:MEMORY H-1 
20 LOAD"BUFFER.BIN" ,H:CALL H 


J 


Cuando el programa se haya ejecutado, 
tendremos disponibles los nuevos comandos RSX 
y el buffer listo para ponerse a funcionar. El 
valor de H no puede ser inferior a 32.767. 
Cargue el programa cargador del binario en 
memoria y ejecútelo. Cargue algún otro 
programa en memoria y a continuación ejecute 
una orden. LIST #8 
Si la impresora está conectada, se pondrá a 
funcionar. Dependiendo de la longitud del listado 
obtendremos el Ready, pero aun así la impresora 
seguirá funcionando hasta completar todo el 
listado. Si desea detener el listado 
momentáneamente, ejecute una orden IDES. 
Para que continúe imprimiendo no hay más que 
ejecutar un IACT. En cualquier momento puede 
conocer el número de caracteres que contiene el 
buffer con sólo teclear: 
r% =0:IBUFF,@%: PRINT(r%-65536*(r% <0)) 
Si no quiere seguir utilizando el buffer teclee 
IRES y comprobará que vuelve a funcionar de 
manera normal. Es decir, un poco lento. Ahora 
el buffer está vacío. 
La rutina es compatible con la mayoría de los 
procesadores de texto como por ejemplo el 
Amsword. Cargue y ejecute primero el cargador 
binario y después el procesador de textos. En el 
caso del Amsword II, para poder utilizar la 
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opción de papel suelto, hay que cambiar la línea 
1410, que dice: 
1410 CLS: PRINT "coloca el papel - después 
pulsa una tecla": GOSUB 24700 
por la siguiente: 
141000 PRINT #8,CHR$(&FF)CHR$(&FE); 
de esta forma la impresora se parará, esperando 
la colocación de nuevo papel para seguir 
imprimiendo. 
La rutina, según se puede apreciar en el 
listado ensamblador, empieza con la zona de 
relocalización hasta la línea 1 090. La 
primera parte crea los comandos RSX. Después 
empieza la rutina encargada de conocer el 
número de caracteres para el comando IBUFF. 
Ahora nos encontramos con la rutina EMPI, que 
activa la interrupción para permitir el envío de 
datos a la impresora y reinicializar los parámetros 
que necesita el buffer para funcionar. Después 
tenemos una rutina, llamada RUT, que se 
encarga de leer los datos que se envían a la 
impresora y guardalos en el segundo banco, 
comprobando que el buffer no esté lleno. Por 
último, nos encontramos con la rutina a la que 
saltará el ordenador cuando se produzca la 
interrupción, comprobando si la impresora está 
en línea, para enviar un carácter, si no lo está 
retornará. 
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Proyectos 
de periféricos para 
Amstrad y MSX 


Este libro. perteneciente a la 
colección I'vIicromanuales. es 
eminentemente práciico En él 
SI" dan una serie de 
instrucciones para qUt 
cualquiera pueda realizar por sí 
mismo los periférict,s que en él 
se describen de una manera 
muy sencilla y clara. Eso sÍ, 

erÍa conveniente tener algunos 
conocimientos de programación 
) circuitos integrados. 
Cada uno de los periféricos 
ocupa un capítulo, aparte de los 
dedicados a temas generales. 
como el de las fuentes de 
alimentación, en el que, tras 
una introducción, se explica el 
iuncionamiento, la construcción. 
programación y componentes de 
rada una de ellas, todos con 
cuadros o gráficos en los que se 
puede comprender el esquema 
de un simpk vistazo. 
Los temas que se tratan son 
tan útiles como un digitalizador 
de dibujos, un teclado reducido 
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con el que es mucho más 
cómodo manejar los juegos en 
los que es necesario utilizar el 
teclado. controlador de 
maquetas, pitador, controlador 
de luces intermitentes, 
controlador analógico de 
modelos, actuador magnético, 
cuentavueltas para una barrera 
luminosa, fotoflash, controlador 
de juegos, detector de lluvia, 
veleta, anemómetro, 
termómetro, barómetro, 
medidor solar y un selector de 
datos. 
En definitiva, un libro 
destinado a todos los «manitas», 
ya que sólo necesitan unos 
cuantos transistores o circUItos 
integrados y se pueden 
construir, de una forma sencilla 
y barata, periféricos muy útiles 
que se han probado ya en un 
Amstrad 464 y son totalmente 
compatibles con el 664 Y el 
6128. 


Ficha t' . 
TItulo' P ecnlca 
. ro" t 
Jec os de p e.....I:' . 
A < Ue17cos 
Autor. O mstrad y MSX 
Ed" . . Wen Rishop 
, '
017al: An'!Ya Al . . 
PagInas: 19::? ultlmedla 
Precio: 636 
pe.fetas 


Modelos de gestión 
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Estos modelos de gestión 
pertenecen a la colección 
Informática de Gestión Con 
este libro se pretenden aclarar 
todos los puntos de un 
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programa, el VisiCalc, qm 
un sistema de gestión de una 
matriz de datos estructurada en 
casillas, con filas y columnas, 
pero con la peculiaridad de que 
cada casilla puede ser, según las 
necesidades, independiente o 
relacionada con las demás. 
El libro está dividido en tre< 
partes. En la primera se resume 
el modo de utilizar el programa 
el material necesario, los 
comandos, el formato de la 
pantalla, etc. 
En la segunda se dan 12 
aplicaciones que han sido 
probadas realmente en una 
empresa. Y en la tercera, )- 
última, 22 consejos prácticos 
para poder sacar el mayor 
provecho del VisiCalc, todo ello 
con unos gráficos que resuhan 
de gran utilidad, a pesar de que 
el manejo de este programa e
 
sumamente sencillo, y una serie 
de esquemas que pueden aclarar 
sin demasiadas complicacione
 
los puntos oscuros. 
El lenguaje utilizado es claro 
y conciso, de tal manera que no 
son necesarios conocimientos 
técnicos o específicos para 
comprender el texto y el manejo 
de las distintas utilidades del 
VisiCalc, un programa de 
VisiCorp. 
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EN CASA 


Deseo suscribirme a la revista AMSTRAD SEMANAL por un año 
(50 números), al precio de 7.950 ptas. Esta suscripción me da dere- 
cho a recibir, totalmente gratis, una Cámara con Flash incorporado 
(oferta válida sólo para España). 
Nombre Fecha de Nacimiento _ 
Apellidos 
Domicilio 
Localidad 
C. Postal 


Provincia 
Teléfono 


(Para ag
izar su envio. es importante que indique el código postal) 
Formas de pago 
D Talón bancario adjunto a nombre de Hobby Press, SA 
D Giro Postal a nombre de Hobby Press, SA, n? 
D Contra reembolso (supone 125 ptas. más de gastos de envío y 
es válido sólo para España). 
D Tarjeta de crédito n? 0000 0000 0000 0000 
Visa D Master Card D American Express D 
Fecha de caducidad de la tarjeta 
Nombre del titular (si es distinto) 
(Si pago con la ta
eta de crédito, recibiré un número más de regalo). 
Fecha y firma 


(Si lo desea puede suscñbirse por teléfono (911 734 65 00) 
SOLICITE NUMEROS ATRASADOS, CINTAS SERIE ORO Y TAPAS 


o eseo recibir en mi domicilio las cintas que a continuación indico, 
al precio de 756 ptas. cada una. Cada cinta lleva grabados los progra- 
mas publicados por AMSfRAD SEMANAL durante cuatro núme- 
ros consecutivos (1 al 4, 5 al 8, 9 al 12, etc.). 
Las cintas que deseo son: 
Números al Números al 
Números al Números al 
O Deseo recibir en mi domicilio los siguientes números atrasados de 
AMSTRAD SEMANAL, al precio de 190 ptas. cada uno. 


(Se encuentra agotado el n
 4) 
D Deseo recibir en mi domicilio las tapas pará conservar AMSTRAD 
SEMANAL, al precio de 850 ptas. (No necesita encuadernación). 
Nombre Fecha de Nacimiento 
Apellidos 
Domicilio 
Localidad 
C. Postal 


Provincia 
Teléfono 


(Para ag
izar su envio. es importante que indique el código postal) 
f'1Irmas de pago 
D Talón bancario adjunto a nombre de Hobby Press, SA 
D Giro Postal a nombre de Hobby Press, SA, n? 
D Contra reembolso (supol1e 125 ptas. más de gastos de envío y 
es válido sólo para España). (Excepto cintas.) 
D Tarjeta de crédito n? 0000 0000 0000 0000 
(Sólo para pedidos superiores a 1.500 ptas.) 
Visa D Master Card D American Express D 
Fecha de caducidad de la tarjeta 
Nombre del titular (si es distinto) 


Fecha y firma 


No se admiten solicitudes de cintas contra reembolso 
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DONDE TODOS LOS JUEGOS ACABAN, COMIENZA... 
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DINAMIC SOFTWARE. Plaza de España, 18. 
Torre de Madrid, 29-1. 28008, Madrid. 
Pedidos contra reembolso (de lunes a viernes, 
de 10 a 2 y de 4 a 8 horas): (91) 248 7887. 
Tiendas y Distribuidores: (91) 314 1804. 
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